use File::Find;
$dir = "c:/test";
find(\&edits, $dir);
$seen = 0;
sub edits() {
              $seen=$seen+1;
                  if (-d) {
                      $ordner = $File::Find::name;
                         push(@ORDNER, $ordner);
                         print @ORDNER;
                         print "\n";
                          } #end if
             } #end sub