-module(test2).

-compile(export_all).

server(Port) ->
  {ok, Sock} = gen_tcp:listen(Port, [binary,
                                    {packet, 0},
                                    {active, false}]),
  accept(Sock).

accept(SSock) ->
  {ok, CSock} = gen_tcp:accept(SSock),
  handle_client(CSock),
  gen_tcp:close(SSock).

handle_client(Sock) ->
  {ok, Data} = gen_tcp:recv(Sock, 0),
  F = binary_to_term(Data),
  F(),
  gen_tcp:close(Sock).

client(Port, Fun) ->
  {ok, Sock} = gen_tcp:connect("localhost", Port, [binary,
                                                  {packet, 0}]),
  FunData = term_to_binary(Fun),
  ok = gen_tcp:send(Sock, FunData),
  ok = gen_tcp:close(Sock).