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