# read
open my $in, '-|', 'gzip', '-dc', $filename;
while (<$in>) {
	print $_;
}
close $in;

# write
open my $out, '|-', 'gzip', '-c', $filename;
print $out "blah";
close $out;