sub REAPER {
    my $waitedpid = wait;
    $SIG{CHLD} = \&REAPER;
}