use Proc::ProcessTable;  
my $now = time;
print "NOW:", scalar(localtime $now),"\n";

$t      = new Proc::ProcessTable;
printf( $FORMAT,  "START", "HOWLONG", "CMD"  );
foreach $p ( @{ $t->table } ) {
 
    printf( $FORMAT,
        scalar( localtime( $p->start ) ), $p->time, 
        );

    }

}



##</code><code>##

NOW  :Fri Oct 26 17:37:58 2007


##</code><code>##

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


##</code><code>##

time        user + system time