require("cgi-lib.pl")
print &PrintHeader;
&ReadParse(*form_data);

##</code><code>##

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