use warnings;
use strict;
use IO::Compress::Zip qw/$ZipError/;

my @lines = (qw/ Hello World Foo Bar /);
my $eol = "\r\n";

binmode STDOUT;  # just to play it safe
my $z = IO::Compress::Zip->new('-', # STDOUT
	Name => "Filename.txt" )
		or die "zip failed: $ZipError\n";
for my $line (@lines) {
	$z->print($line, $eol);
}
$z->close();