Here is the server code I used

#!/usr/bin/perl -w
use strict;
use HTTP::Daemon;
my $server=HTTP::Daemon->new(Timeout => 10, LocalPort => 8989);
while (my $client = $server->accept){
  CONNECTION:
  while (my $answer = $client->get_request){
    print $answer->as_string;
    
    open LOG,">>weblog.txt";
    print LOG $answer->as_string;;
    close LOG;

    $client->autoflush;
    RESPONSE:
    while (<STDIN>) {
      last REPONSE if $_ eq ".\n";
      last CONNECTION if $_ eq "..\n";
      print $client $_;
    }
    print "\nEOF\n";
  }
  print "CLOSE: ",$client->reason,"\n";
  $client->close;
  undef $client;
}
[download]

poj