#!/usr/bin/perl

use strict;
use warnings;

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

my $src = "./foo";

my $dest = "./foo2";

dircopy($src, $dest);