use CGI;
my $q = new CGI;