$size = -s "$file";
		open(DOWNLOAD,"<$file") or die $!;
		print "Content-Type:application/zip\n";
		print "Content-Disposition:attachment; filename=$filename\n";
		print "Content-Length:$size\n\n";binmode(DOWNLOAD);binmode(STDOUT);
		while(read DOWNLOAD, my $buffer, 256){ print $buffer; }
		close(DOWNLOAD);