carp '[BROKER: Forking infinite loop]' if DEBUG >= DEBUG_MEDIUM;
        my $ret;
        if ($ret = fork()) {
                carp "[BROKER: Parent returning (child PID=$ret)]" if DEBUG >= D
EBUG_MEDIUM;
                # perldoc -f fork tells us to reopen to /dev/null, will this wor
k?
                close($self->{_server});
                $self->DESTROY;
                return $ret;
        }
        carp '[BROKER: Child looping]' if DEBUG >= DEBUG_MEDIUM;
        while ($self->event_loop())
                { }
        return undef;