Here's some code that I use to get a list of users/pids, if you ever need to get more than one and then do something with them:

@proc = `ps -ef | grep $param`;
foreach $proc(@proc){
  ($userid, $pid, @rest) = split(' ', $proc);
  print "$userid $pid\n";
}
[download]

Trek