if( $pid = fork ) {
        $SIG{CHLD} = \&REAPER;
        print "Forking off to $pid\n";