sub new {
        my $class = shift;
        my $args  = shift || {};

        # Referenz auflösen "$obj->new(...)"
        $class=ref($class) || $class;

        # es ist "konvention" die Objektvariable "$self" zu nennen
        # so was erleichtert anderen den Code schnell zu überschauen
        my $self = {};

        $self->{'ConfigPath'} = $args->{'cfgpath'}   || 0;
        $self->{'debug'}      = $args->{'debug'}     || q{};
        $self->{'remoteips'}  = $args->{'remoteips'} || 0;

        if ($self->{'debug'} ne q{} )
        { print "$PROGRAM_NAME | Csd | new | uid = $UID | debug = $self->{'debug'}\n" or croak $ERRNO; }

        bless $self,$class;

        $fw=Fwng->new({ debug=>$self->{'debug'} }) unless($fw); # nur einmal initialisieren
        #$fw=Fwng->new({ debug=>q{} });

        #$hgltools=hgltools->new($self->{'debug'});

        # hglssh
        $hglssh=Hglssh->new({ debug=>$self->{'debug'} }) unless($hglssh); # nur einmal initialisieren

        return $csdobj;
} # end sub new