$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();