--- a/server6.pl	Fri Feb 09 14:19:11 2018 +0900
+++ b/server6.pl	Fri Feb 09 15:17:01 2018 +0900
@@ -26,6 +26,8 @@
 
 my $paddr;
 
+my $count = 0;
+
 while(my @ready = $select->can_read()) {
     for my $socket ( @ready ) {
         my $paddr =  accept(my $client, $socket);
@@ -34,15 +36,16 @@
         my ($err,$addr,$m) = getnameinfo($paddr,NI_NUMERICHOST); 
         my ($err,$name,$port) = getnameinfo($paddr,NI_NUMERICSERV); 
         $address_list{$addr} = $name;
+	$count ++;
 
         my $user = <$client>;
         $user=~ s/[\r\n]//g;
         logmsg "connection from $user \@ $name [",
              $addr, "]
-             at port $port";
+             at port $port count = $count";
 
         print $client "Hello there, $name, it's now ",
-	scalar localtime, "\n";
+	scalar localtime, "count = $count \n";
         foreach my $k (keys %address_list) {
             print $client "$k = $address_list{$k}\n";
         }