use File::stat;
my $stat = stat "foo_dir";
my $atime = $stat->atime;