#!/usr/bin/perl
fork() while 1 # this will fork 'em