Gen_event_forwarder is a project mainly written in Erlang, it's free.
gen_event forwarder
gen_event_forwarder is a simple gen_event handler that will forward events and infos to a designated process. It is primarily intended to be used for testing purposes.
Use:
{ok, EventMgr} = gen_event:start_link(),
gen_event:add_handler(EventMgr, gen_event_forwarder, [self()]),