Select Code to Download

#!/tools/opt/bin/perl -w
use Getopt::Std;
...
if($Getopt::Std::opt_p) {$iPid = $Getopt::Std::opt_p;}
print "\n sFile--> $sFile";
print "\n iPID-->$iPid\n";

perl <perlfilename> -f <inputfilename> -p <ProcessID>