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