$SIG{__DIE__} = sub {
  # propagate the die if we're under an eval
  (defined($^S) && !$^S) or die(@_);
  # now do the real stuff
  ...
};