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