Help for this page
perl -e 'print "a line\n" x 10' | less +F
perl -e 'while (1) {print "a line\n" x 1000; sleep 1}' | less