use File::Flat;
use File::List;

my $search = new File::List("/usr/local/man");
$search->show_only_dirs();
my @dirs  = @{ $search->find(".*") };
foreach my $dirname (@dirs){
  File::Flat->makeDirectory("/copy".$dirname);
}