# This is not portable, right?
system('cp', 'source_dir/*', 'dest_dir/');

# Is there was to do this without a loop/map?
use File::Copy;
opendir(INDIR, 'source_dir');
for my $file (readdir(<INDIR>)) {
   copy("source_dir/$file", "dest_dir/$file");
}

# And of course there is always... (ick..)
`cp source_dir/* dest_dir/*`;