my $zip = Archive::Zip->new()
    or croak "Failed to create a new archive";

  $zip->addFile($renamed_file)->desiredCompressionLevel(0)
    or croak "Failed to add $renamed_file) to archive";

  if( $zip->writeToFileNamed($zip_filename) != AZ_OK ) {
    croak "Failed to write to archive: $!";
  }
  print "Added $renamed_file to $zip_filename\n";