#!/usr/local/bin/perl

chdir ("d:\\www\\mypage.net\\www\\test\\");
$zipfile = "zipfile.zip";

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

open FILE, "< $zipfile";
binmode FILE;

binmode STDOUT;  ## add this
$/ = undef;  ## use slurp mode for input, too

print <FILE>;

# closing both FILE and STDOUT is automatic at end-of-script