-module(hello_server).

-export([main/0]).

main() ->
    {ok, ListenSocket} = gen_tcp:listen(6969, [binary, {packet, 0}, {active, false}]),
    %% blocks until client connects
    {ok, Socket} = gen_tcp:accept(ListenSocket),
    Msg = <<"hello, world">>,
    ok = io:format("> ~tp~n", [Msg]),
    ok = gen_tcp:send(Socket, Msg),
    ok = gen_tcp:close(Socket),
    ok = gen_tcp:close(ListenSocket),
    ok.