receiver.erl

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

main() -> receive 
            terminate -> io:fwrite("Receiver process finished\n")
          end.

sender.erl

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

main() -> Pid = spawn(receiver,main,[]),
          Fun = fun(Msg) -> Pid ! Msg end,
          Fun(terminate),
          io:fwrite("Sender process finished\n").

Output:

9> sender:main().
Sender process finished
Receiver process finished
ok