$SIG{CHLD} = 'IGNORE';
#$SIG{CHLD} = \&reaper;
#my %children = ();
#sub reaper {
#    while( ( my $child = waitpid( -1, &WNOHANG ) ) > 0 ) {
#        print "proxy $$ child $child terminated\n";
#    }
#    $SIG{CHLD} = \&reaper;
#}