find ( sub { next unless -d; print $File::Find::name, "\n"; }, '.' );