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

##</code><code>##

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