perlbrew exec perl -wle 'print " A" x 1e0 for 1 .. 1e2' | less -S