Select Code to Download

sub new {
    my $class = shift;
...
    bless ($self, $class);
    return $self;
}

sub new {
    my $class = shift;
...

    return $self;
}