BEGIN{ *CORE::GLOBAL::srand= sub(;$){}; }