writting irc bot in perl post added