Help for this page

Select Code to Download


  1. or download this
    perl -MTime::HiRes -le "my $x=*Time::HiRes::gettimeofday{CODE};*Time::
+HiRes::gettimeofday = sub(){42};print Time::HiRes::gettimeofday; *Tim
+e::HiRes::gettimeofday = $x;print Time::HiRes::gettimeofday"
  2. or download this
    use strict;
use Time::HiRes;
...
print "Modified: ", Time::HiRes::gettimeofday,"\n";
*Time::HiRes::gettimeofday = $x;
print "Restored: ", Time::HiRes::gettimeofday