use CGI qw(:standard);
my $query = new CGI;