use Time::HiRes () ;
  BEGIN { *CORE::GLOBAL::time = \&Time::HiRes::time ; } ;