perl -e 'while (1) {print "a line\n" x 1000; sleep 1}' | less