perl irc bot for learning purposes