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"

##</code><code>##

use strict;
use Time::HiRes;

my $x=*Time::HiRes::gettimeofday{CODE};
*Time::HiRes::gettimeofday = sub(){42};
print "Modified: ", Time::HiRes::gettimeofday,"\n";
*Time::HiRes::gettimeofday = $x;
print "Restored: ", Time::HiRes::gettimeofday