Select Code to Download

use DBI;
use DBD::Oracle;
...
if ( exists $procs{ $xpid } ) {
      print "Pid in use : $xpid\n";
}