use URI;
use URI::QueryParam;

my $info = "/?foo=Zoo&foo=aha";
my $uri = URI->new($info);

my %params;
for my $name ($uri->query_param) {
	my @values = $uri->query_param($name);
	$params{$name} = @values > 1 ? \@values : $values[0];
}