my $x = *Time::HiRes::gettimeofday;
# ...
# ...
# ...
*Time::HiRes::gettimeofday = sub { $x; };