Does anyone know the code in either perl or C++ for perceptrons?

Perceptrons, for those who don't know, are like electronic neurons in AI.