Select Code to Download

sub new {
    my $class = shift;
...
    push @{$class . '::ISA'}, ref $self;
    return bless $self, $class;
}