ls -l ./foo

drwxrwxr-x  2 xorl xorl  4096 2011-10-10 09:38 ./
drwxrwxr-x 10 xorl xorl 20480 2011-10-10 07:47 ../
drwxrwxr-x  2 tcat xorl  4096 2011-10-10 07:52 bar/
-rw-rw-r--  1 tcat xorl     0 2011-10-10 09:21 bar.txt
-rw-rw-r--  1 xorl xorl     0 2011-10-10 09:38 foobar.txt

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use File::Copy::Recursive qw(dircopy);

my $src = "./foo";

my $dest = "./foo2";

dircopy($src, $dest);

##</code><code>##

ls -l ./foo2

drwxrwxr-x  2 xorl xorl  4096 2011-10-11 07:55 ./
drwxrwxr-x 10 xorl xorl 20480 2011-10-11 07:55 ../
drwxrwxr-x  2 xorl xorl  4096 2011-10-11 07:55 bar/
-rw-rw-r--  1 xorl xorl     0 2011-10-11 07:55 bar.txt
-rw-rw-r--  1 xorl xorl     0 2011-10-11 07:55 foobar.txt