#! /usr/bin/perl

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

my @server;

GetOptions('-n=s' => \@server,);

print_usage() unless(@server);

# mache was mit den Servern


###
# Subroutines
###

sub print_usage{
  print qq~
  Usage: $0 -n <server> [-n <server> ...]

  Options:
    -n  Servername(s)
  ~;
  exit;
}

use warnings;
use strict;
use diagnostics;
use Getopt::Std;

Kommandozeilenoptionen einsammeln
my %OPTS=();
eval { local $SIG{} = sub {};
 getopts("n:", \%OPTS);
} or usage("Bad option");


if ( $OPTS{n} )
{
   my @dattest=$OPTS{n};
   print @dattest;    
}