In the TMTOWTDI spirit, here's a shorter variation without Time::Local:

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

Again, btrott's note applies re also updating the last access time.