5 lines
86 B
Perl
5 lines
86 B
Perl
|
INPUT: $line = <>;
|
||
|
|
if ($line !~ /exit/) {
|
||
|
|
print "Try again\n";
|
||
|
|
goto INPUT
|
||
|
|
}
|