perl -le "open STDOUT, '| more'; $|=1; print for 0..50; close(STDOUT) or warn $!; wait"
...
Bad file descriptor at -e line 1.
...