#!/usr/local/bin/escript

response() -> <<
	"HTTP/1.1 200 OK\r\n"
	"Server: Erlang-powered (Linux)\r\n"
	"Connection: close\r\n"
	"Content-Type: text/plain; charset=utf-8\r\n"
	"\r\n"
	"Hello!">>.

server_loop(LSock) ->
	{ok, Sock} = gen_tcp:accept(LSock),
	spawn(fun() ->
		{ok, Request} = gen_tcp:recv(Sock, 0),
		ok = gen_tcp:send(Sock, response()),
		gen_tcp:close(Sock)
	end),
	server_loop(LSock).

main(Args) ->
	{ok, LSock} = gen_tcp:listen(8080, [binary, {active, false}]),
	server_loop(LSock).