A simple Erlang websocket demo