A simple erlang TCP server