Select Code to Download

sub new {
    my $class = shift;
...
    $self->{'label'} = $label;   # which may be undef
    bless $self, $class;
}