use Path::Class qw(dir);
print "$_: ", ($_->stat or next)->mtime, "\n" for dir("/")->children;