perl -e'while(1) {$x++}'