my $file = "foo";
my ($atime, $mtime) = (stat $file)[8,9];
$mtime -= $mtime % 3600;
utime $atime, $mtime, $file;