Event driven code for Perl 5