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;    
}