in reply to Using HTTP::Daemon with CGI

I had a similar problem and found assistance here. Basically CGI.pm won't work properly unless you set certain environment variables that mod_cgi or the equivalent would normally take care of for you. Here is a snippet from my application that does the trick: 
my $req = $c->get_request;
my $uri = $req->uri;
    
$ENV{REQUEST_METHOD} = $req->method;
$ENV{CONTENT_TYPE}   = join('; ', $req->content_type);
$ENV{CONTENT_LENGTH} = $req->content_length  || '';
$ENV{SCRIPT_NAME}    = $uri->path  || 1;
$ENV{QUERY_STRING}   = $uri->query || '';

[download]

Replies are listed 'Best First'.
Re^2: Using HTTP::Daemon with CGI
by cormanaz (Deacon) on Apr 13, 2007 at 21:10 UTC
    That did it. Here's the fixed code.

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

my $d = HTTP::Daemon->new(LocalPort => 8080) || die;
while (my $c = $d->accept) {
    while (my $r = $c->get_request) {
        my $uri = $r->uri;
        $ENV{REQUEST_METHOD} = $r->method;
        $ENV{CONTENT_TYPE}   = join('; ', $r->content_type);
        $ENV{CONTENT_LENGTH} = $r->content_length  || '';
        $ENV{SCRIPT_NAME}    = $uri->path  || 1;
        $ENV{QUERY_STRING}   = $uri->query || '';        
        my $q = new CGI;
        my $p = $q->param('foo');
        my $reply = $q->header.$q->start_html."the foo parameter is $p
+<p>".$q->end_html;        
        $c->send_response($reply)
    }
    $c->close;
    undef($c);
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom