my $source ='K:\\Courses of Study\\curriculum mapping\\';
my $target='C:\\docs\\curriculum maps resources';
print "$source directory does not exist" unless (-d $source);
print "Copying under progress for roughly 1 hour...\n";
File::Copy::Recursive::dircopy $source, $target or die "Copy failed: $!\n";