Select Code to Download

tie(%hash, 'My::Hash::Tie::Class', @args);

my $obj = tied(%hash);

my %newhash = Foo($obj);