sub new {
        my @opt=@_;
        my ($klasse,$dbg,$args);
        my $csdobj = {};
        $klasse = $opt[0];
        $args = $opt[1];
        my $mypath = \$args->{'cfgpath'} ;
        $dbg = \$args->{'debug'} ;
        my $ips = \$args->{'remoteips'} ;
        if (${$dbg} ne q{} ) { print "$PROGRAM_NAME | Csd | new | uid = $UID | debug = ${$dbg}\n" or croak $ERRNO; }
        $csdobj->{'debug'}=${$dbg} || '0';
        $csdobj->{'ConfigPath'}=${$mypath} || '0';
        $csdobj->{'remoteips'}=${$ips};
	$fw=Fwng->new({debug=>${$dbg},});
        #$fw=Fwng->new({debug=>q{},});
        #$hgltools=hgltools->new(${$dbg});
        # hglssh
        $hglssh=Hglssh->new({debug=>${$dbg},});
        bless $csdobj,$klasse;
        return $csdobj;
} # end sub new