local $SIG{CHLD}=sub{
        my $pid=wait();
        delete($result->{$pid})
      };
    sleep 1 while(keys(%$result));