BEGIN {
  *CORE::GLOBAL::srand = \&my_srand;
  *CORE::GLOBAL::rand  = \&my_rand;
};