Select Code to Download

use strict;
use warnings;
...
}
print Dumper(@option_array);
exit 0;

perl script.pl --option OPTION1 --option OPTION2

my $options_ok = GetOptions ('option=s' => \(our $option_variable));