use warnings;
use strict;

use Compress::Zlib;

my $file = shift;

my $gz = gzopen( $file, "rb" ) or die "gzopen failed";

my $bytesRead;
my $line;
while( $bytesRead = $gz->gzreadline( $line ) )
{
	if( $bytesRead < 0 ){ die "Error: $gzerrno"; }
}

$gz->gzclose();