Select Code to Download

sub new {
    my $class  = shift;
...
    my %args   = (%params, @_); # Overwrite the defaults
    bless \%args, $class
}

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(%args);
    return $self
}