#!/usr/bin/perl

use warnings;
use CGI::Carp 'fatalsToBrowser';

$|++;

use strict;
use CGI qw/:standard/;

use Archive::Zip;

my $fileToUpload = 'foobar.txt';

my $zip = Archive::Zip->new();

open( my $fh, '<', $fileToUpload ) or die "open failed: $!";
binmode( $fh ); # for win32
my $contents = do { local $/; <$fh> };
close( $fh );

$zip->addString($contents, $fileToUpload);

print header(
   -type => 'application/zip',
   -attachment => "$fileToUpload.zip"
);

binmode( STDOUT ); # once again, for win32
$zip->writeToFileHandle(\*STDOUT);