use CGI;
print CGI::header();
my %form_data = CGI::Vars;