#!/usr/bin/perl

my @ps = qx(ps -u $> -o pid,tname,etime,cmd --no-headers);

for (@ps) {
($pid, $tname, $etime,$cmd) = 
      unpack "a5 x a11 x a8 x a200",$_;
print "$pid  $tname  $etime  $cmd\n";
}