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