perl -e 'print "hi\n" while sleep 1'
perl -e 'print "hi\n" while sleep 1' | perl -pe 1