my($accessed, $modified) = (stat "/foo/bar")[8, 9];

##</code><code>##

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