open(F, "files/data.zip");
binmode(F);
print "Content-Type: application/octet-stream;\n";
print "Content-Disposition: filename=data.zip;\n\n";
foreach $i (<F>){
	$i =~ s/[\n\r]{2}/\n/g;
	print $i;
}
close(F);