Select Code to Download

my %defaults = ( cat => 1,
         dog => 2 );
...
    my $self = \%hash;
    return bless ($self, $class);
}

sub mysub
{
    my $cat = shift || 1;
    # etc
}