Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Last statement
FOREVER: for (;;) {
    chomp($line = <>);
    if ($line eq 'q') {
        last FOREVER;
    } else {
        print "You typed: $line\n";
    }
}