$SIG{__DIE__} = sub {
    die @_ if $^S;
    ...
  };