local *CORE::GLOBAL::die = sub { "My version of die." };
# use it...