#! /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;
}