Select Code to Download

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

$ echo foo >logpipe
foo
...
echo fie >logpipe
fie
$

$ fg
perl -e 'open PIPE, "< logpipe"; {select 1<<fileno PIPE,undef,undef,un
+def;print <PIPE>;redo}'
# do a Ctrl-C here
$