Select Code to Download

$SIG{INTERUPT_ON_PENDING_SOCKET_IO} = \&ckSockets;

use IO::Select;
...
...
        ...read and process data from this socket...
}

[root@ibm-blade-blade0 testbuddy]# time dprofpp
Total Elapsed Time = 1790.060 Seconds
...
 9.05   119.1 256.27 363021   0.0000 0.0001  BuddyUsers::log
 5.25   69.14 137.12 350999   0.0000 0.0000  tsprint::ts
 5.17   67.97 67.979 350999   0.0000 0.0000  POSIX::strftime