gistfile1.erl

init([]) ->
   % Start the scheduled GC job every minute. Naive!
   erlang:send_after(60 * 1000, self(), {gc}),
   {ok, no_state}.

handle_info({gc}, State) ->
   case erlang:memory(binary) of
       % We use more than 500 MB of binary space
       Binary when Binary > 500000000 ->
           erlang:garbage_collect(self())
       _ ->
           ok
   end,
   erlang:send_after(60 * 1000, self(), {gc}),
   {noreply, State}.