=for nobody
sub REAPER {                    # takes care of dead children
    my $pid = wait;
    $children--;
    delete $children{$pid};
    $SIG{CHLD} = \&REAPER;      # reset as necessary, should be at end
}

sub HUNTSMAN {                  # signal handler for SIGINT
    local ( $SIG{CHLD} ) = 'IGNORE';    # we're going to kill our children
    kill 'INT' => keys %children;
    exit 0;                             # clean up with dignity
}

=cut


# Install signal handlers.
#$SIG{CHLD} = \&REAPER;
#$SIG{INT}  = \&HUNTSMAN;