anchor.diff:          {ok, Ref} = prim_inet:async_accept(ListenSocket, -1),
   	io:format("ListenSocket created for ~p\n", [Ref]),
           {ok, #state{listener = ListenSocket,
  -                    acceptor = Ref}};
  +                    acceptor = Ref,
  +		    connection_number = 0}};
       {error, Reason} ->
           {stop, Reason}
       end.
  
positive.code:          terminate/2, code_change/3]).
  
  -record(state, {
                  listener,       % Listening socket
                  acceptor        % Asynchronous acceptor's internal reference
                 }).
  
  -define(SERVER, ?MODULE).
  
negative.code: %% Description: Handling all non call/cast messages
  %%--------------------------------------------------------------------
  handle_info({inet_async, ListenSocket, Ref, {ok, ClientSocket}},
              #state{listener=ListenSocket, acceptor=Ref, connection_number=Counter} = State) ->
      try
  	io:format("Client connected ~p\n", [ClientSocket]),
          case set_sockopt(ListenSocket, ClientSocket) of
  