Select Code to Download

use Tie::HashTree qw(hash_to_tree);
my $tree = tie my %x, 'Tie::HashTree';

sub TIEHASH
{
...
        $self->{top} = {};
        bless ($self, $class);
}