use AI::NeuralNet::BackProp;

        my $net = new AI::NeuralNet::BackProp(2,5,1);
        # Add a small amount of randomness to the network


        $net->random(0.001);
        $net->range ([0,1]);

        $net->debug (4);

        # Create a data set to learn
        my @set = (
                [ 0,0,0,0,0 ], [ 1 ],
                [ 0,0,0,1,0 ], [ 1 ],
                [ 0,0,1,0,0 ], [ 1 ],
                [ 0,0,1,1,0 ], [ 1 ],
                [ 0,0,0,0,1 ], [ 0 ],
                [ 0,0,0,1,1 ], [ 0 ],
                [ 0,0,1,0,1 ], [ 0 ],
                [ 0,0,1,1,1 ], [ 0 ],
        );

        my $f = $net->learn_set (\@set);
        print "Forgetfulness: $f unit\n";


        # Run a test phrase through the network

       for ( $i = 0 ; $i < 17 ;$i++){

           @bit= (0,0,0,0,0); #reset bits

           $bit[0] = 1 if ( ($i & 16) == 16 );
           $bit[1] = 1 if ( ($i & 8) == 8 );
           $bit[2] = 1 if ( ($i & 4) == 4 );
           $bit[3] = 1 if ( ($i & 2) == 2 );
           $bit[4] = 1 if ( ($i & 1) == 1 );

           print "Testing $i   @bit -> ";
           my $result = $net->run( \@bit);
           my $answer = $$result[0];
           print "$answer\n";

      }