Select Code to Download

package TieTest;

...
    $tie = tie $$ref, "TieTest";
    print "tie for reference $ref = $tie\n";
}

After scalar tie ...
$h->{FOO} = foo
...
$a = BAR2
$a tied? TieTest=HASH(0x13c81c)
h->{FOO} tied?