# writer
open(FIFO, "> /path/to/named.pipe");
print FIFO "Interesting stuff";
close(FIFO);

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