Select Code to Download

sub new {
    my $class = shift( @_);
...
        if not defined $class or ref $class;
    bless [@_], $class;
}