here i am forwarding process status to a file "process",

'ps -ef >process'(this is done by a cron job at every day)

here is part my perl code
 my $uxinfo = "process";
          open(INFO, $uxinfo);
          @uinfo = <INFO>;
foreach my $line (@uinfo)
       {
       chomp($line);
       next if ($line eq "" );
print "$line";}}
}

##</code><code>##

#ps -ef

UID        PID  PPID  C STIME TTY          TIME CMD
root         1     0  0  2007 ?        00:00:02 init [3]
root         2     1  0  2007 ?        00:01:34 [gration/0]
root         3     1  0  2007 ?        00:00:01 

##</code><code>##


UID PID PPID C STIME TTY TIME CMD
root 1 0 0 2007 ?  00:00:02 init [3]
root 2 1 0 2007 ?  00:01:34 [gration/0]
root 3 1 0 2007 ?  00:00:01