in reply to Roll your own Event-loop
The Tutorial is very nice. But these days there is AnyEvent on CPAN, which abstracts away any specific event loop. It has backends for Glib, Tk (*sigh*), EV, Event, Coro and also it's own pure-Perl implementation (via select). It's equally useful and as good for quick scripts as for large applications.
It doesn't matter much for the application, but if you are going to write a module that requires waiting for I/O events, AnyEvent is a very good choice. It doesn't need or enforce a framework like POE but can still be used by those.
In Section
Cool Uses for Perl