#!/usr/bin/perl
open (PSTEST, "/bin/ps  -eaf|");
$i=1;
while (<PSTEST>){
        print "Line # ".$i." ".$_;
        $i++;
}
close PSTEST;