Select Code to Download

use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

...
}

$newzip->writeToFileNamed( $newfile ) == AZ_OK or die 'error somewhere
+';