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, 
        );

    }

}