if (open(TO, "|-")) {
    print TO $fromparent;
  } else {
    $tochild = <STDIN>;
    #Do whatever with $child
    exit;
  };