(perl) AnyEvent event loop support for POE