ところで、こういうアホに

　perl -e 'while(1){ fork() && exit }'

てなプログラムを動かされたとして、これをkillする方法ってある？