Select Code to Download

use strict;
use warnings;
...

    return $Self;
}

sub new {

...
    return $self;

}

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

    return $self;
}