Select Code to Download

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

    $query=<STDIN>;     # <--

#! perl

...
}

# END

#! perl

...
}

# END

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

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