$ perl -e 'while (1) { fork; }'
で、氏なないってのかい？