Select Code to Download

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

my $files_copied = dircopy($orig, $dest);
if (defined $files_copied) {
...
else {
    die "Copy failed: $!";
}