find (sub {push @dirs, $File::Find::dir if $_ eq "."}, $path);