$zip->updateTree
(
    {
        root    => 'New_Tree',    # On disk
        zipName => 'Tree',        # In the archive
        mirror  =>  1,            # Delete missing directories and files
    }

) == AZ_OK or die 'update error';