open(PS,"ps|");
while (my $thisLine = <PS>){
 #do something
}