#!/usr/local/bin/perl

open FIFO, "<foo" or die "$!\n";
while (<FIFO>) {
  chomp;
  print "$_\n";
}