perl -MFile::Find -le "for $d (@ARGV) {print qq(Scanning $d);find({no_chdir=>1, wanted=>sub{print $File::Find::name}},$d)}" \\?\Q:\ Q:\