use File::Find; find(sub {print $File::Find::name if -d}, ".");