{
  local $SIG{'__DIE__'} = sub {
    ## insert here whatever way of sending a mail you prefer. For example:
    open my $mail, '|mail user@localhost' or die "open: $!";
    print $mail shift;
    close $mail;
  };
  die "dying...\n";
}