Select Code to Download

#! perl
use strict;
...

print "L1 switch: $L1\n";
print "p  switch: $p\n";

16:39 >perl 698_SoPW.pl --L1 foo -p
L1 switch: foo
p  switch: 1

16:39 >