use strict;
use warnings;
use File::Copy;
use File::Basename;
use Cwd;
use Data::Dumper;
use File::Copy::Recursive;

my $source_dirrtl = ("$newpath"."/rtl");
my $target_dirrtl1 = ("$newpath"."/rtl1");



mkdir($target_dirrtl1,0777);



opendir(my $DIRRTL1, $source_dirrtl) || die "can't opendir $source_dirrtl: $!";




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