BEGIN { *CORE::GLOBAL::die = sub {print "I am immortal!!\n"} }