$SIG{__DIE__}= sub { return if $^S; print "Caught by die handler: @_"; exit; }