Select Code to Download

cd /d e:\windows

cd /d c:\

find({ no_chdir => 1, wanted => sub { print if -d } }, 'E:' );

cd /d c:\

...
cd /d e:\

perl -MFile::Find -e "$\=$/; find( sub { print if -d }, 'c:' );"

.
windows
foo

perl -MFile::Find -e "$\=$/; find({ no_chdir => 1, wanted => sub { pri
+nt if -d } }, 'c:' );"

. . .
c:/windows/$hf_mig$/KB898461/update
...
c:/windows/assembly/GAC_32/CustomMarshalers
c:/windows/assembly/GAC_32/CustomMarshalers/2.0.0.0__b03f5f7f11d50a3a
. . .