perl -we 'while(1){system("echo " . "1 "x 10000 . "|more");exit if ($? & 127) == 2;}'