my $server = IO::Socket::INET->new( Proto     => 'tcp',
                                 LocalPort => $serverport,
                                 Listen    => SOMAXCONN,
                                 Reuse     => 1);
    die "can't setup server" unless $server;
&writelog("$date: INFO: Server $0 started accepting clients <br>connections");
 while ($client = $server->accept()) {
   $client->autoflush(1);
   my $hostinfo = gethostbyaddr($client->peeraddr);
   my $remoteclient = $hostinfo->name;
   &writelog("$date: INFO: New client connection from <br> $remoteclient");
   while ( <$client>) {
    next unless /\S/;       # blank line