#! perl -w
use strict;
use Time::HiRes;
{
    local *Time::HiRes::gettimeofday{CODE} = sub(){42};
    print "Modified: ", Time::HiRes::gettimeofday,"\n";
}
print "Restored: ", Time::HiRes::gettimeofday