9 use HTTP::Request::AsCGI;
12 $SIG{'PIPE'} = 'IGNORE';
14 my $server = HTTP::Daemon->new( LocalPort => 3000, ReuseAddr => 1 ) || die;
16 print "Please contact me at: <URL:", $server->url, ">\n";
18 while ( my $client = $server->accept ) {
21 REMOTE_ADDR => $client->peerhost,
22 REMOTE_HOST => $client->peerhost,
23 REMOTE_PORT => $client->peerport
26 while ( my $request = $client->get_request ) {
28 CGI::initialize_globals();
30 my $c = HTTP::Request::AsCGI->new( $request, %e )->setup;
34 $q->start_html('Hello World'),
35 $q->h1('Hello World'),
40 my $message = "HTTP/1.1 200\x0d\x0a";
42 while ( my $line = $c->stdout->getline ) {
44 last if $line =~ /^\x0d?\x0a$/;
47 my $response = HTTP::Response->parse($message);
49 if ( my $code = $response->header('Status') ) {
50 $response->code($code);
53 $response->header( Connection => 'close' );
54 $response->protocol( $request->protocol );
55 $response->content( sub {
56 if ( $c->stdout->read( my $buffer, 4096 ) ) {
62 $client->send_response($response);