- my $t=LWP::Simple::get("$url_base?"
- .join('&',
- "list=$list",
- map({ $_."=".uri_escape($W->{"args"}{$_}); } qw(email pw pw-conf))));
+ my $url=URI->new($url_base);
+ $url->query_form(
+ "list"=>$list,
+ map(($_=>$W->{"args"}{$_}),qw(email pw pw-conf)),
+ );
+ my $t=LWP::Simple::get($url);