print "Content-type: application/zip\n\n";

open(Z,"<zipfile.zip");
@zip=<Z>;
close Z;

foreach$zip(@zip) {
	print $zip;
}