Select Code to Download

pipe(README, WRITEME);
if (fork) {
...
  print WRITEME "interesting stuff";
  close(WRITEME);
}

# writer
open(FIFO, "> /path/to/named.pipe");
...
  $output .= $_;
}
close(FIFO);