Select Code to Download

open(PS, "ps -ef |") or die "Problem invoking 'ps': $!\n";
while (<PS>) {
...
  print "pid $pid\n";
}
close(PS);

while (<PS>) {
  next unless /$version/ && /online/;
  ($pid) = (split)[2];
}
print "pid $pid\n";