use autodie;

BEGIN {

  sub myDie {
    my $e=shift;
    die localtime() . ": $e";
  };

  sub myWarn {
    my $e=shift;
    warn localtime() . ": $e";
  }

  *CORE::GLOBAL::die = \&myDie;
  *CORE::GLOBAL::warn = \&myWarn;
}