#!/usr/local/bin/perl

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";