Select Code to Download

sub GetParams
{
...
    }
    return $webparams;
}

$hash{input_name}[0]
$hash{input_name}[1]

sub GetParamsHash
{
...
    }
    return %webparams3;
}

sub DecodeURL
{
...
    $text =~ s/%([a-f0-9][a-f0-9])/chr(hex($1))/eig;
    return $text;
}