sub new{
   my $class = shift;
   my %cfg = (
      -name => '',
   @_);

   croak "-name ist zwingend erforderlich!!!" unless $cfg{-name};

}