use strict;
use warnings;
use File::Find;

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