Help for this page
my $zip = Archive::Zip->new(); foreach $case (@items) { ... $member = $zip->addFile( "$file_to_zip", "$file_name" ); + } die 'write error' unless $zip->writeToFileNamed( $zip_file_name ) == A +Z_OK;