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

##</code><code>##

    $query=<STDIN>;     # <--

##</code><code>##

#! perl

my $query;
my $req_method = $ENV{REQUEST_METHOD};
    
if ($req_method eq 'POST') {
    $query=<STDIN>; print $query;    # <--
}

# END

##</code><code>##

#! perl

my $query;
    
if ($ENV{REQUEST_METHOD} eq 'POST') {
    $query=<STDIN>; print $query;    # <--
}

# END

##</code><code>##

    if ($req_method eq 'POST') {$query=<STDIN>;}

##</code><code>##

    elsif ($req_method eq 'GET') {$query = $ENV{QUERY_STRING};}