- my $f = gzopen($fn, "r") or return "Cannot open $fn $!";
- my $l;
- while ($f->gzreadline($l)) {
+ my $if = gzopen($fn, "r") or return "Cannot open $fn $!";
+ my $ofn = "$fn.upk";
+ my $of = new IO::File "+>$ofn" or return "Cannot open $ofn $!";
+ my ($l, $buf);
+ while ($l = $if->gzread($buf)) {
+ $of->write($buf, $l);
+ }
+ $if->gzclose;
+ $of->seek(0, 0);
+
+ while ($of->getline()) {