Help for this page
use File::Copy::Recursive qw(dircopy);
my $file = dircopy(my $sourcedir, my $targetdir);