use File::Util;
use File::Copy;
my($f) = File::Util->new();
my(@files) = $f->list_dir($dir,'--files-only');
foreach $file (@files) {
   copy ($file, "$targetDir/$file);
}