# slightly revised die() handler sub die_handler { # added this line print "\$^S is set to $^S", $/; die @_ if $^S; print "ERROR: $_[0]\n (Check logs for more info)\n-----\n\n"; exit(1); } __output__ Warn before init! at die_code.pl line 3. WARNING: Warned at die_code.pl line 7. (Check logs for more info) ----- $^S is set to 1 Caught: died inside eval! $^S is set to 1 Died for real! at die_code.pl line 28.