Withdrew my comment after I saw you did not want to use PS (of course, you wouldn't use it in backticks if you wanted the output, you would use something like:

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

Kind of thing.