#!/usr/bin/perl
 

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


.
.
.

    
    use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
    $zipName = "../downloads/".$verzeichnis."Download.zip";
    $zip = Archive::Zip->new();
    $index==0;
    foreach (@zumzippen) {
    ##use IO::Compress::Zip qw(:all);
    #use IO::Compress::Zip qw(:ZIP_CM_STORE);
    ##$status = zip [ @zumzippen ] => "../downloads/".$verzeichnis."Do
+wnload.zip"; # , Autoclose => 1; #Method => ZIP_CM_DEFLATE , Level =>
+ Z_NO_COMPRESSION;
    
    $member = $zip->addFile( $_ , @dateiliste[$index]);

    
    #$member->desiredCompressionMethod( COMPRESSION_STORED );
    
    #$crc = $zip->computeCRC32( $zipName  );  
    
  
    #$member->desiredCompressionLevel( 8 );
    $index++;
    }
    
#    $zip->addTree("../downloads/$verzeichnis", "$verzeichnis");
    
    
    #$status = $zip->writeToFileNamed("../downloads/".$verzeichnis.$zi
+pName);
    $status = $zip->writeToFileNamed($zipName);
}