Select Code to Download

sub some_run_mode { 
    my $self = shift;
...
    my @params = $self->param; 
    my %hash = map { $_ => $self->param( $_ ) } @params;
}