perl -MTime::HiRes -le "my $x=*Time::HiRes::gettimeofday{CODE};*Time::HiRes::gettimeofday = sub(){42};print Time::HiRes::gettimeofday; *Time::HiRes::gettimeofday = $x;print Time::HiRes::gettimeofday"