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

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

my $fh = $z->openMember(Name => "myarchive.zip");
print $fh <binary data here>;
close($fh);

$z->close();