print "Please contact me at: <URL:", $server->url, ">\n";
while ( my $client = $server->accept ) {
-
+
my %e = (
REMOTE_ADDR => $client->peerhost,
REMOTE_HOST => $client->peerhost,
my $q = CGI->new;
print $q->header( -charset => 'UTF-8' ),
- $q->start_html(
+ $q->start_html(
-title => 'Hello World',
-encoding => 'UTF-8'
),
my $c = HTTP::Request::AsCGI->new($r);
$c->setup;
-
+
print "Content-Type: text/plain\n";
print "Status: 500 Borked\n";
print "\n";