Select Code to Download

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;