Select Code to Download

package sample;

...
   print "Ending script \n";
}
1;

#!/usr/local/bin/perl

...
       . " threads have exited \n");

sleep(30);

./scr1

Starting loop
Connecting to DB
...
Disconnecting from DB
Ending script
Check no. of fd's for ocius.msb using lsof -p 9940. Sleeping 30s