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