-module(test_tcp).
-compile(export_all).
go(S) ->
send("192.168.1.99", 9001, S).
send(Host, Port, Str) ->
{ok, Socket} = gen_tcp:connect(Host, Port, [binary, {packet, 0}]),
ok = gen_tcp:send(Socket, Str),
wait(Socket).
wait(Socket) ->
receive
{tcp, Socket, Bin} ->
io:format("Client received binary = ~p~n", [Bin]),
wait(Socket);
{tcp_closed, Socket} ->
io:format("A connection is shut down. ~n"),
gen_tcp:close(Socket)
end.
The above is a little erlang program to test the biogine program during developing.