use strict;
use warnings;
use Getopt::Long;

my @option;

my $InOpts = GetOptions( 
    'o|option:s'       => \@option
)
or die "usage option  ...";
die "Too much -o!!!  @option \n" if @option>1;