#!/usr/bin/perl
use File::NCopy;
$file = File::NCopy->new(recursive => 1);

$file->copy($dir1, $dir2); # Copy $dir1 to $dir2 recursively

# or if the dir is big and you would rather fork 
# (cd $srcdir; tar cf - *) | (cd $dstdir; tar xf -)

#or even better
#  cd /source/dir
#  find . -print | cpio -pd /dest/dir
[download]