Select Code to Download

  while ( my $proc = <PROCS> ) {
      # if the grep filters out everything, this is a
      # zero-trip loop.
  }

  my $found_one = 0;
  while ( my $proc = <PROCS> ) {
...
  } else {
      print "couldn't find $process\n";
  }