my $qverz ="/var/www/";
opendir(DIR, $qverz) || die "$qverz: $!"; 
my @Dateien = 
   grep {        # filtere Liste aller
     -d          # Dateien mit Dateiflag Directory
   } 
   readdir(DIR); # aus Verzeichnisinhalt
closedir(DIR);