perl -e 'print "a line\n" x 10' | less +F 

##</code><code>##

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