BEGIN {
   *CORE::GLOBAL::die = sub {
      CORE::die(@_) if $^S;
      ...
   };
}

BEGIN {
   *CORE::GLOBAL::warn = sub {
      ...
   };
}