anchor.diff:  	    ets:insert(Counter, {transaction_id, ?TID_THRESHOLD}),
   	    {ok, #state{socket = Socket,
   			transaction_register = TR,
  -			counter = Counter}};
  +			counter = Counter,
  +			monitor_ref = MonitorRef}};
   	{error, _Reason} ->
   	    {stop, normal}
       end.
  
positive.code: 	    ok = ssl:setopts(Socket, [{mode, binary}]),
  	    {ok, Socket};
  	Else ->
  	    io:format("ServerSignature: ~p ~n",[Else]),
  	    {error, server_verification}
      end.
  
  
negative.code: -spec init(Args :: [{atom(), term()}]) ->
      {ok, State :: #state{}} | {stop, Reason :: term()}.
  init(Args) ->
      Pid = proplists:get_value(pid, Args),
      MonitorRef = erlang:monitor(process, Pid),
      IP = proplists:get_value(ip, Args),
      Port = proplists:get_value(port, Args),
      Username = proplists:get_value(username, Args),
  