Select Code to Download

  sub new {
      my $pkg = shift;
      my $self = { a => $default_for_a, @_ };
      bless $self, $pkg;
  }