IRC bot in perl