#!/usr/bin/perl

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

my $source = "d://source";
my $target = "d://target";

my $filecopied = dircopy($source, $target);
print "files copied: $filecopied";