read STDIN, $query, $ENV{CONTENT_LENGTH};     # <--