This one liner is recursive. I do not know if this is desired.

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

--
bm