Obtener Port Erlang

{ok, {Address, Port}} = inet:peername(Socket).
James Cook