The Archive::Zip documentation shows how to save a ZIP file to a given filename:

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

The temp filename should be created through File::Temp:

my ($tempfile, $name) = tempfile();
close $tempfile;
[download]