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