-module(dict_server).
-export([main/0]).
main() ->
{ok, File} = file:open("/usr/share/dict/words", [read, raw]),
{ok, Socket} = gen_tcp:listen(13372, [binary, {active, false}]),
spawn(fun() -> start_server(Socket, File, 99171) end).
start_server(Socket, File, Length) ->
{ok, Connection} = gen_tcp:accept(Socket),
spawn(fun() -> start_server(Socket, File, Length) end),
handle_connection(Connection, File, Length).
handle_connection(Connection, File, Length) ->
io:format("Connection received~n"),