use strict;
use warnings;

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

my $file;
for my $txt ( qw(File1| File2| File3|) ) {
	$file = "/tmp/tst${txt}.gz";
	print STDERR "$file\n";
	gzip \$txt => $file or die "gzip failed: $GunzipError\n";
}

my $contents = `cat /tmp/tst*`;
print STDERR "contents=$contents\n";

my $out;
gunzip \$contents => \$out or die "gunzip failed: $GunzipError\n";
print STDERR "Here comes the decrypted stuff:\n$out\n";

print STDERR "Now we use the gunzip command to do the same:\n";

print STDERR `cat /tmp/tst* | gunzip -c`;