Select Code to Download

sub new {
    my $class=shift;
...
        # normal retrieval of attributes from %attribs here
    }, $class;
}