in reply to Re(3): Find and Print Directory Namesin thread s and replace
use File::Find; find (sub { print "$_\n" if -d; }, $dir); [download]