BEGIN {
  no warnings qw(redefine);
  *CORE::GLOBAL::time =\&MYPACKAGE::time;
}