Select Code to Download

sub option {
  my $self=shift;
...
  my %h=@_;
  @{$self->{options}}{keys %h}=values %h;
}

   while(@_) {
      $self->{options}->{+shift}=shift;
   }