#Command line argument handling my $hidden_neurons = '3'; #Number of neurons in the hidden layer my $training_image = ''; #Image to train ANN with. my $training_epochs = '10'; #Default to 10 training epochs my $training_error = '0.001'; #Default accepted error my $training_reporting = '10'; #Default reporting interval my $testing_image = ''; #Image to run through the ANN with GetOptions( 'hidden-neurons|n-h:i' => \$hidden_neurons, 'train-image|t-i=s' => \$training_image, 'train-epochs|t-e:i' => \$training_epochs; 'train-error|t-er:i' => \$training_error; 'train-reporting|t-r:i' => \$training_reprting; 'test-image|o-i=s' => \$testing_image, );