Select Code to Download

   my $sleep_count = 0;
   do {
...
       }
   } until defined $pid;
   # ...

  $pid = open(KID_TO_WRITE, "|-");
  die "bailing out" if !defined $pid;

  $fh = undef;
  $pid = eval {
...
      open($fh, '|-')
  };
  die 'bailing out' if !defined $pid;