my $zip = Archive::Zip->new();
  $zip->addFile($renamed_file)->desiredCompressionLevel(0);    
  if( $zip->writeToFileNamed($zip_filename) != AZ_OK ) {     print "write error...$!"; }
      print "Added $renamed_file to $zip_filename\n";
}