Select Code to Download

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

    bless $self, $class;
}

use fields qw(param1 param2 param3);

...

    return $self;
}