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

##</code><code>##

my $file = dircopy(my $sourcedir, my $targetdir);