perl -MFile::Find -e "find(\&w,shift);sub w{print \"$File::Find::name\n\"}" c:/temp