Select Code to Download

#! perl
use strict;
...

print "p switch: $opt_p\n";
print "L switch: $opt_L\n";

16:01 >perl 698_SoPW.pl -L -p foo
p switch: foo
L switch: 1

16:01 >