Select Code to Download

sub new {
    my $self = {};
...
    bless $self;
    return $self;
}

    sub new {
        my $class = shift; ##NB
...
        return $self;
    }