Select Code to Download

use strict;

use Tie::IxHash;
...

print "hash tie  = ", tied(%hash), "\n";
print "TIMED tie = ", tied(${$hash{TIMED}}), "\n";

hash tie  = Tie::IxHash=ARRAY(0x80f8240)
TIMED tie = Tie::Scalar::Timeout=HASH(0x81038e4)