Bot IRC in perl