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