Select Code to Download

use strict;
use warnings;
use File::Copy;
...

my $cp = File::NCopy->new(recursive => 1);
my $cp->copy("$source_dirrtl/*",$target_dirrtl1) or die "couldnt copy 
+$source_dirrtl to $target_dirrtl1);