# Save the Zip file
unless ( $zip->writeToFileNamed('someZip.zip') == AZ_OK ) {
    die 'write error';
}

##</code><code>##

my ($tempfile, $name) = tempfile();
close $tempfile;