Select Code to Download

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

  open(PROCS, "ps -a |");
  while ( my $proc = <PROCS> ) {
      next if $proc !~ /$process/;
      # ...
  }