require "Neuron.pm"; require "NeuralNet.pm"; Neuron::beta( 0.8 ); $parent = Neuron->new(); $neuron = Neuron->new(); $child = Neuron->new(); $parent->addChild( $neuron ); $neuron->addChild( $child ); $parent->V(1); $neuron->calculateValue(); print $neuron->toString();