my $Verzeichnis = "D:/qt";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @verz = readdir(DIR);
closedir(DIR);

foreach my $folder (@verz) {
        print stat($folder)->mtime."\n";
}