#!/usr/bin/perl 

use strict;
use warnings;
no warnings qw(uninitialized);
use File::stat;

my $file = shift or die $!;

open my $fh, '<', $file or die $!;

my ($atime, $mtime) = (stat($fh))[8,9];
utime($atime, $mtime, $fh)
  or die "couldn't restore $file to original times: $!";

close $fh;