That link you gave results in "permission denied".

Be sure not to access a tied variable from inside of a FETCH routine. To work around that bug, instead of:

    sub FETCH {
        # ...
        $val= $refToTiedHash->{$key};
        # ...
    }
[download]

use

    sub FETCH {
        # ...
        $val= tied(%$refToTiedHash)->FETCH($key);
        # ...
    }
[download]

for example.

        - tye (but my friends call me "Tye")