$sigset=POSIX::SigSet->new(SIGCHLD);
$sigaction=POSIX::SigAction->new('main::REAPER', $sigset, &POSIX::SA_RESTART);
$osigact=POSIX::SigAction->new;
sigaction(SIGCHLD, $sigaction, $osigact);