Select Code to Download

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

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