cd /d e:\windows

cd /d c:\

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

##</code><code>##

cd /d c:\

mkdir test\windows\foo

cd test

cd /d e:\

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

##</code><code>##

.
windows
foo

##</code><code>##

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

##</code><code>##

. . .
c:/windows/$hf_mig$/KB898461/update
c:/windows/$MSI31Uninstall_KB893803$
c:/windows/$MSI31Uninstall_KB893803$/spuninst
c:/windows/$NtServicePackUninstall$
c:/windows/$NtServicePackUninstall$/spuninst
c:/windows/$NtUninstallKB816486$
. . .
c:/windows/ADDINS
c:/windows/AppPatch
c:/windows/assembly
c:/windows/assembly/GAC_32
c:/windows/assembly/GAC_32/CustomMarshalers
c:/windows/assembly/GAC_32/CustomMarshalers/2.0.0.0__b03f5f7f11d50a3a
. . .