my $q = new CGI;

##</code><code>##

read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
## process string ....