#! /usr/bin/perl -w

use strict;
use Compress::Zlib;

my $file = shift || 'testdata.gz';
my $gz   = gzopen( $file, 'wb' ) or die "Cannot open $file for gzwrite: $gzerrno\n";
my $line;

while( defined($line = <DATA>) ) {
    $gz->gzwrite( $line )
        or die "Could not write gzipped data to $file: $gzerrno\n";
}
$gz->gzclose();

$gz = gzopen( $file, 'rb' ) or die "Cannot open $file for gzread: $gzerrno\n";
while( $gz->gzreadline($line) > 0 ) {
    print $line;
}
die "Error reading from $file: [$gzerrno]\n" unless Z_STREAM_END == $gzerrno;
$gz->gzclose();

__DATA__
foo
bar
Judge my vow, sphinx of black quartz
__END__