Select Code to Download

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

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