my $st = stat($fh) or die $!;
my ($atime, $mtime) = ($st->atime, $st->mtime);
...

##</code><code>##

use File::stat ":FIELDS";
...
stat($fh) or die $!;
my ($atime, $mtime) = ($st_atime, $st_mtime);
...