Select Code to Download

       map { $self->{$_} = $initdata{$_} } keys %initdata;

  %$self =  (%$self, %initdata);

   $self->{$_}=$initdata{$_} for keys %initdata;