find (sub {push @dirs => $File::Find::name if -d});