Select Code to Download

sub new {
    my $class = shift;
...
        return [@$self];
    }
}

sub new {
    my $class = shift;
...
        return [@$self->{LIST}];
    }
}