use strict;
use warnings;

BEGIN { *CORE::GLOBAL::die = sub {
   print(STDERR @_);
   CORE::exit($! || 255);
}; }

eval { die };
print "You can see I'm still alive!\n";  # Never reached