Select Code to Download

        if ( ! -d "$copy_to/$dir" ) {
            warn "Cannot copy/zip $src because $copy_to/$dir does not 
+exist\n";
...
        }
        opendir( $dh, $src );
        ...

        eval { mkpath (["$copy_to/$dir"]); 1}