如何实现带子文件夹的批量文件复制

File::Copy
使用这个模块，
我写个单独的程序
copy("filename","dir") do tie 。。。
执行这个程序是成功的。
但是我放在我的大程序中
用File::Find
查找到文件名并给变量$file，dir也用变量$dir表示的
可是执行copy($file,$dir)    $dir中没有copy成功


PS:我要复制的文件带有子文件夹，如何能批量复制？是否可以不用上述方法？

好语无伦次。。。