use File::Find;
use strict;

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