sub GetLocalAddr0 {
  my $self    = shift;
  my $Param1 = pack ('C6S',0,0,0,0,0,0,0,0 );
  
  
  # ggf. noch pack NetId und Port
  my $Result = $self->{_LocalAddr}->Call($Param1);
  print $Result;
  
  my ($A,$B,$C,$D,$E,$F,$P) = unpack('C6S',$Param1);
  
  
  print "A:$A\n";
  print "B:$B\n";
  print "C:$C\n";
  print "D:$D\n";
  print "E:$E\n";
  print "F:$F\n";
  print "P:$P\n";

}