Select Code to Download

sub new {
    my ($class,$id) = @_;
...
    my $class = shift;
    $class->SUPER::get_list( %ARGS );
}