Select Code to Download

ls -l ./foo

...
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

#!/usr/bin/perl

...
my $dest = "./foo2";

dircopy($src, $dest);

ls -l ./foo2

...
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