Help for this page

Select Code to Download

Select or download this

...
print "Press <Enter> to continue, or 'q' to quit: ";
my $input = <STDIN>;
exit if $input eq "q\n";
...