use strict;
use warnings;

use IO::Compress::Gzip qw(gzip $GzipError) ;
use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;

my $gzipped;
for my $txt ( qw(Alpha Beta Gamma)) {
    gzip \$txt => \$gzipped, Append => 1 
        or die "gzip failed: $GzipError\n";
}

my $out;
gunzip \$gzipped => \$out, 
        MultiStream => 1 
    or die "gunzip failed: $GunzipError\n";

print "Uncompressed is:\n$out\n";