Help for this page

Select Code to Download

Select or download this
```
    my $fh = myOpen( "<", $pathname )
```

Select or download this

my %cache;
sub myOpen {
...
    open $fh, $mode, \$cache{ $path } or return;
    return $fh;
}