一行代码搞定:

perl -MFile::Find -E "find sub {say $File::Find::dir , '/', $_ }, qq(c:/windows/)"