use HTTP::Daemon;
use CGI qw/:standard/;

my $httpd = new HTTP::Daemon(LocalPort => 8765);

while (my $connection = $httpd->accept())
{
    # spawn child to deal with this request
    fork() && next;

    while (my $request = $connection->get_request())
    {
        ### I wish this would work.  ###
        my $query = new CGI($request);
... process CGI parms in the usual way