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