my $gz = gzopen($file);
my $line;
while ($gz->gzread($line)) {
    
}
$gz->gzclose();