use File::stat;
    my $s = stat "/foo/bar";
    print scalar localtime $s->atime;