Select Code to Download

#!/usr/bin/env perl -l

...
print qq{Option $_ = }, $opt{$_} for sort keys %opt;

print qq{-z option detected: $opt{-z}} if exists $opt{-z};

$ pm_in_params.pl -i infile -o outfile -s statfile
Option -i = infile
...
Option -s = statfile
Option -z = zzzzzzzz
-z option detected: zzzzzzzz