sub mysystem {
  my $signal_received = 0;
  my $old_signal_handler = $SIG{CHLD};
  local $SIG{CHLD} = sub { $signal_received = 1};

  system @_;

  $old_signal_handler->() if $signal_received;
}