$ mkfifo logpipe $ perl -e 'open PIPE, "< logpipe"; { select 1<;redo}' & #### $ echo foo >logpipe foo $ echo far >logpipe $ far echo fie >logpipe fie $ #### $ fg perl -e 'open PIPE, "< logpipe"; {select 1<;redo}' # do a Ctrl-C here $