sub download {


use CGI;

$html=new CGI;


#print $html->header(-type => 'application/octet-stream', -attachment => $_[1]);
print $html->header(-type => 'application/zip', -attachment => $_[1]);        
	open($peunter, "<", $_[0].$_[1]);
	binmode($peunter);
	binmode STDOUT;
	while (read($peunter,$bytes,1024)) {
			unless (eof()) {
			chomp($bytes);
			}
			print $bytes;
	}

	#@data = <$peunter>;
	
	close($peunter);
	
	#print "@data";


}



##</code><code>##

#!/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);
}

##</code><code>##

#!/usr/bin/perl 
#use warnings;
.
.
.
sub download {


use CGI;

$html=new CGI;


print $html->header(-type => 'application/octet-stream', -attachment => $_[1]);
        
	open($peunter, "<", $_[0].$_[1]);
	binmode($peunter);
	binmode STDOUT;
	while (read($pointer,$bytes,1024)) {
			print $bytes;
	}
	#@data = <$peunter>;
	
	close($peunter);
	
	#print "@data";


}