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";


}