Testing SSL on Erlang

ssl:start().
{ok, ListenSocket} = ssl:listen(8443, [{certfile, "server.pem"}, {keyfile, "server.key"}, {cacertfile, "server.chain"}, {reuseaddr, true}]).
{ok, Socket} = ssl:transport_accept(ListenSocket).
ok = ssl:ssl_accept(Socket).