>cpanm File::Copy::Recursive

##</code><code>##

...
my $newpath = ...;  # Provide an initial value here
my $source_dirrtl = $newpath . "/rtl";
...