Select Code to Download

use Time::Local;
my $file = "foo";
...
my $on_hour = timelocal(0, 0, $hour, $mday, $mon, $year);

utime $atime, $on_hour, $file;

utime $on_hour, $on_hour, $file;