You're getting the directories for every file entry. You need to reject anything that isn't named "dot", then take the directory from which that's located:

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

-- Randal L. Schwartz, Perl hacker