#!/usr/bin/perl -w

use strict;
use Getopt::Long;

my %Args                    = ();
my @option = ();
my $option = "";

my $help   = 0;

print "ARGV: @ARGV\n";

my  $InOpts = GetOptions( \%Args,
                         'o|option=s'       => \@option,
			 'h|help'           => \$help ) or die "usage option  ...";

print "Usage ..." if( ! $InOpts);
print "help ..."  if( $help );

my $array_anz = @option;

print "ArrayInfo: Optionen: @option ArrayAnz: $array_anz \$#: $#option\n";

print "too much -o @option !!\n" if (@option>1);