use File::Find;
find(sub { print "$File::Find::name\n" if -d }, "c:/program files/");