sub GetLocalAddr {
  my $self    = shift;
  my @AmsNetId = (0,0,0,0,0,0);
  my $Port = 0;
  
  my $Param = pack ('C6 S', @AmsNetId,$Port);
   
  my $Result = $self->{_LocalAddr}->Call($Param);
}