Select Code to Download

FORK: {
    if ($pid = fork) {
...
      die "Can't fork: $!\n";
    }
  }

  if (open(TO, "|-")) {
    print TO $fromparent;
...
    #Do whatever with $child
    exit;
  };

pipe(FROM_PARENT, TO_CHILD) or die "pipe: $!";
select((select(TO_CHILD), $| = 1))[0]);