I've once done something similar and used the Net::Jabber::Loudmouth module. The documentation isn't all that good. You get automatically generated API docs when you install it, however those don't say anything about the purpose of the methods. You'd need to look those up in the loudmouth documentation, which is quite good, itself.

Another nice looking xmpp implementation is Net::XMPP2.