my $qverz ="/var/www/";
 opendir(DIR, $qverz) || die "$qverz: $!"; 
 my @Dateien = readdir(DIR);
closedir(DIR);