Mine

#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,
);