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

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