my $oldSigDie = $SIG{_ _DIE_ _};
$SIG{_ _DIE_ _} = sub {
   print "uhu\n";
   &{$oldSigDie} if ref $oldSigDie eq 'CODE';
}