Going at it from a slightly different viewpoint, perhaps it might be simpler/easier to just use CGI::Lite which provides exactly one method to get the form data =]. You simply use the object->parse_form_data and get your hash, like so:

use CGI::Lite;
my $c = CGI::Lite->new();

my %form_data = $c->parse_form_data(); #or pass it GET or POST, respec
+tively
print keys %form_data;
print "\$form_data{ $_ } = $form_data{$_}\n" for keys %form_data;
[download]