Need a Yahoo! IM autoresponder in Perl

Hello, I need a bot written in Perl that would automatically respond to Yahoo! instant message. Requirements: - it needs to be able to work with several accounts simultaneously - thus needed support for proxies (SOCKS or HTTP) - there's going to be a chain(5-10) of set replies for every "conversation", which need to be retrieved from a MySQL database - it needs to be able to run several simultaneous conversations for every account. (while user A is typing a message it needs to be able to reply to user B's and C's IMs with the respectful message of the chain) - the bot will have to be installed on a server and shown to perform as requested. Post your price offers/questions/suggestions. Thanks!