anchor.diff:      ok = gen_tcp:controlling_process(Socket, Server),
       gen_server:call(Server, {connected, Socket}).
   
  +peername(Server) ->
  +    gen_server:call(Server, peername).
  +
   %%====================================================================
   %% gen_server callbacks
   %%====================================================================
  
positive.code: %%                                      {stop, Reason, State}
  %% Description: Handling call messages
  %%--------------------------------------------------------------------
  handle_call({connected, Socket}, _From, State) ->
      inet:setopts(Socket, [{active, true}]),
      o_send(State, connected),
  
negative.code:          send_line/2,
           send_cmd/2,
           close/1,
           connect/2,
           peername/1]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  