sub dead_child {
  ...
  $SIG{CHLD} = \&dead_child;
}
$SIG{CHLD} = \&dead_child;