$ mkfifo logpipe
$ perl -e 'open PIPE, "< logpipe"; { select 1<<fileno(PIPE),undef,undef,undef; print <PIPE>;redo}' &