use strict;
use warnings;
use File::Copy::Recursive qw(dircopy);
my $SourceDir="C:/test";
my $TargetDir="C:/Programs (x86)";
dircopy($SourceDir,$TargetDir) or die("$!\n");