#!/usr/local/bin/perl

print "Content-type:application/x-zip-compressed\n\n";
open FILE, "d:/www/mypage.net/www/test/zipfile.zip";
binmode FILE;
print <FILE>;
close FILE; 

##</code><code>##

binmode STDOUT;