my $actual_sleep = \&CORE::GLOBAL::sleep; 

# and later

 $actual_sleep->($_[0])