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