# $SIG{__DIE__} = sub { print "I died.\n"; exit 0 };

BEGIN {
   *CORE::GLOBAL::die = sub {
      print "Died in the new die.\n";
      exit 0;
   };
}

print "Requiring something bogus.\n";
require "bogus";
print "Done requiring something bogus.\n";