unix domain sockets in erlang example

sockets_example.erl

% -*- coding: utf8 -*-

-module(sockets_example).
-export([main/0]).

main() ->
    io:format("~nUNIX sockets:~n++++++++++++++~n"),
    unix_sockets().

unix_sockets() ->
    SrvAddr = {local,"/tmp/socket1"},
    CliAddr = {local,"/tmp/socket2"},
    spawn_link(fun() ->
        {ok, SrvSock} = gen_udp:open(0, [{ifaddr, SrvAddr}, {active, false}, binary]),
        {ok, {Address, Port, Packet}} = gen_udp:recv(SrvSock, 1024, 1000),
        io:format("Server got message from ~p:~p : ~p~n", [Address, Port, Packet]),
        gen_udp:send(SrvSock, Address, Port, [<<"Reply for: ">>, Packet])
        end),
    timer:sleep(100),
    {ok, CliSock} = gen_udp:open(0, [{ifaddr, CliAddr}, {active, false}, binary]),
    gen_udp:send(CliSock, SrvAddr, 0, <<"Request">>),
    {ok, {Address, Port, Packet}} = gen_udp:recv(CliSock, 1024, 1000),
    io:format("Client got message from ~p:~p : ~p~n", [Address, Port, Packet]),
    % flush link message
    receive _ -> ok after 100 -> ok end.