%%% from the manual at http://www.erlang.org/doc/reference_manual/expressions.html

-module(timer).
-export([timer/0,timer/1]).


timer() ->
    spawn(timer, timer, [self()]).
timer(Pid) ->
    receive
    after
        5000 ->
	    io:format("~n time out after 5000ms ~n", []),
            Pid ! timeout
    end.