Why not use the supplied (from the CGI docs) :
I dont know if theres any significant overhead?

my $q = new CGI;
$params = $q->Vars;
print $params->{'address'};
@foo = split("\0",$params->{'foo'});
%params = $q->Vars;
[download]