http://www.perlmonks.org?node_id=153172


in reply to Piping STDOUT to 'more'

perl -e '$|++;open STDOUT, "|more";print qq($_\n)for(1..1000);close STDOUT'

Works for me. I don't really know why...