use File::Copy;
use File::Find;

find(sub{ push @_files, $Find::File::name }, @src_dirs);
copy $_, "dst_dir/$_" for @_files;
[download]