use CGI qw(Vars);
my %formdata = Vars();