#!/usr/bin/perl

use 5.014;
use strict;
use warnings;
use autodie;


use Data::Dumper;
use URI;

my $info = "/?foo=Zoo&foo=aha";

my $uri = URI->new($info);
my %query = $uri->query_form;

print Dumper \%query;