my $server = IO::Socket::INET->new( Proto     => 'tcp',
                                 LocalPort => $serverport,
                                 Listen    => SOMAXCONN,
                                 Reuse     => 1);
    die "can't setup server" unless $server;
my $remotehost;
&writelog("$date: INFO: Server $0 started accepting clients connections");
 while ($client = $server->accept()) {
   $client->autoflush(1);
   $remotehost = $client->peeraddr;
 }
But i get this in the log 
01/11/2005/ 14:42: INFO: New client connection from
Μφ