my $query;
my $req_method = $ENV{REQUEST_METHOD};
    
if ($req_method eq 'POST') {
    read STDIN, $query, $ENV{CONTENT_LENGTH};     # <--
} elsif ($req_method eq 'GET') {
    $query = $ENV{QUERY_STRING};
}