在单行Perl程序中很简单

This is simple in a one-line Perl program

perl -MFile::Copy=copy -e'copy($_, "/d/work/abcd") for </d/work/abc/*/*.txt>'