if ( ! -d "$copy_to/$dir" ) { warn "Cannot copy/zip $src because $copy_to/$dir does not exist\n"; next; } opendir( $dh, $src ); ... #### eval { mkpath (["$copy_to/$dir"]); 1}