...
   if (my $pid = fork) {
      $childs{$pid} = $cmd;
   }
   ...
  $reaped{$pid} = $childs{$pid}.':'.$sig.':'.$?;
   delete $childs{$pid};
...