Пожинайте детей, не устанавливая $SIG {CHLD} для ИГНОРИРОВАНИЯ или к пользовательскому обработчику сигналов

Я пытаюсь записать сервер сокета что ветвления для каждого соединения. Я был успешен за исключением одного маленького протеста: мои дочерние процессы используют Net:OpenSSH-> capture2 (), который требует, чтобы $SIG {CHLD} не были установлены ПРОИГНОРИРОВАТЬ или к пользовательскому обработчику сигналов. Как я могу пожинать своих детей, не устанавливая обработчик сигналов или замедляя родительский процесс с ожиданием или waitpid?

Вот мой серверный код:

my $sock = new IO::Socket::INET (
    LocalHost   =>  'localhost',
    LocalPort   =>  '1337',
    Proto       =>  'tcp',
    Listen      =>  SOMAXCONN,
    Reuse       =>  1,
); 
die "Could not create socket: $!\n" unless $sock;

my $new_client, $pid;

while($new_client = $sock->accept()){

    next if $pid = fork;
    die "fork: $!" unless defined $pid;

    close $sock;

    while(<$new_client> ) {
        #do Net::OpenSSH stuff
    }

    exit;

} continue {
    close $new_client;
}

Если я использую код как показано выше, все работает, но я заканчиваю с набором процессов-зомби. Если я добавляю

local $SIG{CHLD} = 'IGNORE';

зомби пожинают, но Сеть:: OpenSSH-> capture2 () вызов метода имеет испорченный код возврата. Я предполагаю, что мой обработчик сигналов вмешивается в некоторый пользовательский обработчик что Сеть:: OpenSSH должен работать правильно?