9 lines
154 B
Perl
9 lines
154 B
Perl
FOREVER: for (;;) {
|
|
chomp($line = <>);
|
|
|
|
if ($line eq 'q') {
|
|
last FOREVER;
|
|
} else {
|
|
print "You typed: $line\n";
|
|
}
|
|
} |