4 #$HTTP::Daemon::DEBUG++;
6 my $d = HTTP
::Daemon
->new(Timeout
=> 60);
7 print "Please contact me at: <URL:", $d->url, ">\n";
9 while (my $c = $d->accept) {
11 while (my $r = $c->get_request) {
16 last RESPONSE
if $_ eq ".\n";
17 last CONNECTION
if $_ eq "..\n";
22 print "CLOSE: ", $c->reason, "\n";