Select Code to Download

#!/usr/bin/perl
use warnings;
...
 if($words[0] eq $pid){ print "$words[4] $words[9]  \n"}
}

#!/usr/bin/perl
use warnings;
...
__
}
#################################################