Colective inteligence in action written in perl