My try at a IRC bot, this time in perl