open(PROCS, "ps -a | grep $process |");
  while ( my $proc = <PROCS> ) {
      # ...
  }