I want to copy a directory (including subdirs) and preserve the ownership. This is a brief example that isn't working.

The directory:

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
[download]

#!/usr/bin/perl

use strict;
use warnings;

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

my $src = "./foo";

my $dest = "./foo2";

dircopy($src, $dest);
[download]

And I get:

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
[download]

Looking at the documentation for File::Copy::Recursive, I don't see where it says anything about being able to preserve the ownership. My next thought is to try something combination of File::Find and File::Copy but that seems overly complex for something I think should be simple. Plus I don't see in the documentation where that would preserve ownership either.

So how should I go about recursively copying a directory while preserving ownership?

As noted in one of the replies, the script will be run by root.

Edit: Fixed typo and added more info

Edit #2: I'm giving up on a perl solution for now (but would still like to see one if it is possible). Going to write a bash script that uses either cp or maybe rsync instead.