use Archive::Zip::SimpleZip ;

print "Content-Disposition: attachment; filename=\"myarchive.zip\"\r\n";


my $z = new Archive::Zip::SimpleZip '-', Stream => 1;

my $fh = $z->openMember(Name => "myarchive.zip");
print $fh "hello world\n";
close($fh);

$z->close();