read (STDIN, $query, $ENV{'CONTENT_LENGTH'});

##</code><code>##

foreach my $f (param()) {
    $query .= "&" if $query && $query ne "";
    $query .= "$f=" . param($f);
}