A Generic Perl Event Loop