Perl POE Irc Server Bot