use CGI qw/:standard/;
my $q = new CGI;
my %form_data = $q->Vars;
use Data::Dumper;
print Dumper \%form_data;