Select Code to Download

use Proc::ProcessTable;  
my $now = time;
...
}

NOW  :Fri Oct 26 17:37:58 2007

START                    HOWLONG
Fri Oct 26 03:23:00 2007 120000

time        user + system time