#!/usr/bin/perl -w
################################3

use strict;
use warnings;
use diagnostics;
use CGI;
use Archive::Zip;

my $cgi=new CGI;
print $cgi->header("Content-type: x-applicaition/zip\n\n\n");

my $arch = new Archive::Zip;
my $member = $arch->addFile('myfile.html');
binmode(STDOUT); # THis is suspect, I haven't done this for a while....
$arch->writeToFilehandle(\*STDOUT);
.
.
.
.