my $orig = "myOriginal";<p>
my $dest = "myNewDirectory";<p>
##</code><code>##

#!perl

use warnings;
use diagnostics;

use File::Copy;
use File::Path;
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
  
print "start\n";

my $orig = "nose";
my $dest = "nosey";

dircopy($orig, $dest) or die "Copy failed: $!";

print "done\n";