http://www.perlmonks.org?node_id=7013


in reply to How do I get the last accessed time for directory?

With stat: 
my $atime = (stat "foo_dir")[8];

[download]
Or, if you'd like a nicer interface to stat, use File::stat: 
use File::stat;
my $stat = stat "foo_dir";
my $atime = $stat->atime;

[download]
Either of those will put the last accessed time, in epoch seconds, into $atime.

In Section Seekers of Perl Wisdom