Perl-script to send xmpp (jabber) messages
