$SIG{__DIE__}=sub{$^S and return; print("DIED: ",@_); exit };
eval { die "cya!\n" }; 
$@ and die "outside: ",$@;