I've never actually used this module but I just happened to be looking into it and found a tutorial which might be applicable to your problem: the "Adding interaction" example of http://www.perl.com/lpt/a/588. Note that the Event class is used in a different package than the OnInit subroutine.