my %dirs;
find(sub { $dirs{$File::Find::dir}++;}, $path);