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

##</code><code>##

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