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