use Path::Class;

my $dir = dir("D:/qt"); # dir() kommt aus Path::Class

for my $entry ($dir->children) {
    my $stat = $entry->stat or warn("$entry: $!\n"), next;
    print $stat->mtime;
}