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

##</code><code>##

c:/program files/Netscape/Communicator/Program/NetHelp/netscape/composer
c:/program files/InstallShield Installation Information/{0AD84416-63A4-4CF3-BDDF-8FA866711FB0}