anchor.diff:  	NasId = atom_to_list(node()),
   	AnonymousName = "DonaldTrump",
   	MAC = "dd:ee:ff:aa:bb:cc",
  -	send1(Socket, Address, Port, Secret, NasId, MAC, AnonymousName, Data).
  +	send1(ClientPid, Socket, Address, Port, Secret, NasId, MAC, AnonymousName, Data).
   %% @hidden
  -send1(Socket, Address, Port, Secret, NasId, MAC, UserName,
  +send1(ClientPid, Socket, Address, Port, Secret, NasId, MAC, UserName,
   			[<<?Handshake, _:32>>, [[?ClientHello | _] | _]] = Data) ->
   	RadId = 10, EapId = 3,
   	Auth = radius:authenticator(),
   	client_hello(Socket, Address, Port, Auth,
   			RadId, EapId, Secret, NasId, MAC, UserName, Data),
  -	server_hello(Socket, Address, Port, Auth, RadId, Secret).
  +	server_hello(ClientPid, Socket, Address, Port, Auth, RadId, Secret).
   
   -spec controlling_process(ClientPid, Pid) ->
   	ok | {error, Reason} when
  
positive.code: -export([send/2, controlling_process/2,
  		shutdown/2, close/1, connect/4]).
  %% export public API
  -export([ssl_connect/3, deliver/3]).
  
  -export_type([listen_option/0, eap_option/0]).
  
  
negative.code: 		Reason :: term().
  %% @doc Gets one or more options for an EAP session.
  getopts(ClientPid, Options) when is_pid(ClientPid) ->
  	{ok, []}.
  
  -spec shutdown(ClientPid, How) ->
  