Select Code to Download

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

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