Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...

print "Did not stop, sorry!\n";

Select or download this

$ echo -e "aaa\nbbb\nccc\n" | script.pl -d
OK? [Y|n]>
...
$ echo -e "aaa\nbbb\nccc\n" | script.pl -d
OK? [Y|n]>
n