local $SIG{'__DIE__'} = sub {
   die($@) if $^S;
   ...
};