Select Code to Download

sub new {
    my ($self, $tn, $key, $value);
...
        @{$self}{keys %hash} = @hash{keys %hash}; #dragonchild suggest
+ion
    $self;
}