Select Code to Download

sub foo
{
    while (@_) { local $_ = shift; $params->{$_} = shift; }
    print "$_: $params->{$_}\n", for keys %$params;
}

sub foo
{
...
    while (@_) { $_ = shift; $params->{$_} = shift; }
    print "$_: $params->{$_}\n", for keys %$params;
}