*old = *CORE::GLOBAL::sleep;
*CORE::GLOBAL::sleep = sub { warn " **** beware of morons **** "};

&old();                                 # oops
warn \&CORE::GLOBAL::sleep;
warn \&old;