[Freeswitch-users] Flushing the Event buffer in Perl Event Socket

Dear All, I receiving the events in while loop by using recvEventTimed method in ESL.pm. I have to flush that Event buffer after some particular time. How can I do it? Thanks, Velusamy