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