Select Code to Download

#!/usr/bin/perl -w
use strict;
...
utime($atime, $mtime, $file) or die "utime: $!";

show_times($file, "after atime restored");

$ touch somefile && sleep 2 && ./fix_accesstime.pl somefile
atime=1386693000, mtime=1386693000, ctime=1386693000 - initially
atime=1386693002, mtime=1386693000, ctime=1386693000 - after read
atime=1386693000, mtime=1386693000, ctime=1386693002 - after atime res
+tored