您可以使用内置的模块File :: stat(包含在Perl 5.004中)。 @H_301_6@调用stat($ fh)返回一个数组，其中包含有关传入(从perlfunc man page for stat)的文件句柄的以下信息：

0 dev      device number of filesystem
  1 ino      inode number
  2 mode     file mode  (type and permissions)
  3 nlink    number of (hard) links to the file
  4 uid      numeric user ID of file's owner
  5 gid      numeric group ID of file's owner
  6 rdev     the device identifier (special files only)
  7 size     total size of file,in bytes
  8 atime    last access time since the epoch
  9 mtime    last modify time since the epoch
 10 ctime    inode change time (NOT creation time!) since the epoch
 11 blksize  preferred block size for file system I/O
 12 blocks   actual number of blocks allocated

@H_301_6@此数组中的第9个元素将为您提供自时代(1970年1月1日格林尼治时间1970年1月1日)以来的最后修改时间。从中你可以确定当地时间：

my $epoch_timestamp = (stat($fh))[9];
my $timestamp       = localtime($epoch_timestamp);

@H_301_6@为了避免在前面的例子中需要的幻数9，另外使用Time :: localtime，另一个内置模块(也包括在Perl 5.004中)。这需要一些(可以说)更清晰的代码：

use File::stat;
use Time::localtime;
my $timestamp = ctime(stat($fh)->mtime);