You could also do:

my $query = join(';',
   map {
      my $k = $_;
      join(';', map {
         uri_escape($k) . '=' . uri_escape($_)
      } $CGI->param($_))
   } $CGI->param()
);
[download]