use CGI qw(:standard);
print "content-type:text/plain\n\n";
my $query = CGI->new();