for( ;; ) { open FIFO; "<", $fifofile or die $!; my $buf = ; # blocks next unless defined $buf; chomp $buf; print $buf; close FIFO; }