Select Code to Download

use base qw(Some::Package);

sub new {
  my $proto     = shift;
...
      $self->$arg($args{$arg});
    }
  }

sub init {
   my $self=shift;
   $self->{_permitted} = \%fields;
   #... and add the other fields also
  };