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

##</code><code>##

my $files_copied = dircopy($orig, $dest);
if (defined $files_copied) {
    print "Files copied: $files_copied\n"
}
else {
    die "Copy failed: $!";
}