set up a function call in its own process

gistfile1.erl

make_request(Fun, Args) when is_function(Fun), is_list(Args) ->
    Ref = make_ref(),
    Caller = {self(), Ref},
    ReqF = fun() ->
                   exit({Ref, apply(Fun, [Caller|Args])})
           end,
    try spawn_monitor(ReqF) of
        {_, MRef} ->
            receive
                Ref ->
                    erlang:demonitor(MRef, [flush]),
                    ok;
                {'DOWN', MRef, process, Reason} ->
                    {error, Reason}
            end
    catch
        error: system_limit = E ->
            {error, E}
    end.