anchor.diff:  
   -define(IDLE_TIMEOUT, 30000).
   
  +-define(MAX_HEADERS, 1000).
   -define(DEFAULTS, [{name, ?MODULE},
                      {port, 8888}]).
   
  
positive.code:             exit(normal)
      end.
  
  headers(Socket, Request, Headers, Body) ->
      case gen_tcp:recv(Socket, 0, ?IDLE_TIMEOUT) of
          {ok, http_eoh} ->
              inet:setopts(Socket, [{packet, raw}]),
  
negative.code:                     ?MODULE:loop(Socket, Body)
              end;
          {ok, {http_header, _, Name, _, Value}} ->
              headers(Socket, Request, [{Name, Value} | Headers], Body,
                      1 + HeaderCount);
          _Other ->
              gen_tcp:close(Socket),
              exit(normal)
  