use strict;

use Tie::IxHash;
use Tie::Scalar::Timeout;

my %hash;

tie %hash, "Tie::IxHash";
tie ${$hash{TIMED}}, "Tie::Scalar::Timeout", EXPIRES => '+2s';

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

##</code><code>##

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