Help for this page

Select Code to Download

Select or download this

sub open_file 
{
...

    return $fh;
}

Select or download this
```
tie $fh, 'IO::Zlib', $file, "rb";
```