Select Code to Download

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

#!perl

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

print "done\n";