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

foreach my $folder (@verz) {
        next if($folder eq '.' || $folder eq '..');
	print stat("$Verzeichnis/$folder")->mtime."\n";
}