Здравствуйте.
А в перле кто-нибудь разбирается?  Нарисовал тут.
Смотрю на это и думаю: ы?

package PerlIO::via::gzip;

use Compress::Zlib qw(gzopen);
use strict;

sub PUSHED {
	my $class = shift;
	bless \my $self, $class;
}

sub FILL {
	my ($self, $fh) = @_;
	$$self ||= gzopen($fh, "r");
	my $n = $$self->gzreadline(my $line);
	$n > 0 ? $line : undef;
}

sub WRITE {
	my ($self, $buf, $fh) = @_;
	$$self ||= gzopen($fh, "w");
	$$self->gzwrite($buf);
}

1;