[Freeswitch-users] event based sipVicious blocker

I am working on a freeswitch sipVicious blocker. I would like to run it from within freeswitch. Is there a way to get events while running within freeswitch without running a socket via ESL::ESLconnection? #!/usr/bin/perl use strict; use warnings; use ESL; my $c = new ESL::ESLconnection( "localhost", "8021", "ClueCon" ); $c->events( "plain", "CHANNEL_CREATE CUSTOM sofia::pre_register" ); while ($c->connected()) { my $event = $c->recvEvent(); #do some stuff }