anchor.diff:  payload(_, _, {Socket, _}) ->
       ssl:close(Socket).
   
  -pem_cache(N, ssl, Data = {Socket, Size}) when N > 0 ->
  -    ok = ssl:send(Socket, msg()),
  -    {ok, _} = ssl:recv(Socket, Size),
  -    pem_cache(N-1, ssl, Data);
  -pem_cache(_, _, {Socket, _}) ->
  -    ssl:close(Socket).
  -
   msg() ->
       <<"Hello", 
         0:(512*8), 
  
positive.code: 		   ssl:close(Socket)
  	   end,
      setup_server_connection(LSocket, Test);
  server_init(ssl, payload, Loop, _, Server) ->
      {ok, LSocket} = ssl:listen(0, ssl_opts(listen)),
      {ok, {_Host, Port}} = ssl:sockname(LSocket),
      {ok, Host} = inet:gethostname(),
      Server ! {self(), {init, Host, Port}},
  
negative.code:     TestPerSecond = case TimeInMicro of
                          0 ->
                              undefined;
                          _ ->
                              1000000 * TotalTests div TimeInMicro
                      end,
      io:format("TC ~p ~p ~p ~p 1/s~n", [TC, Type, ParallellConnections, TestPerSecond]),
  