Need some info on IRC BOTS using PERL

Does any one know of a good irc bot written in perl?

I just need a simple one that logs on to said channel, then replies things based on what the u开发者_开发知识库ser says.

e.g.

The user:

<tgwizman> !time

The bot replies

<BlahBot> The time is 4:38:54 AM

---

Last time I made an IRC bot I used AnyEvent::IRC::Client. The example there can be used to start developing your own bot.

Also Net::IRC page suggests some alternatives.

---

Bot::BasicBot CPAN distribution contains several example bots. Projects Using POE page contains lists of POE-based IRC bots. See also answers here: CHATBOT: Programming a chatbot with Perl