_LocalAddr => _GetRefToDllFunction("$Path2Dll", 'AdsGetLocalAddress', 'P', 'N','_cdecl'), sub GetLocalAddr { my $self = shift; my @AmsNetId = (0,0,0,0,0,0); my $Port = 0; my $Param = pack ('C6 S', @AmsNetId,$Port); # ggf. noch pack NetId und Port my $Result = $self->{_LocalAddr}->Call($Param); print $Result; (@AmsNetId,$Port) = unpack('C6 S',$Param); print $Port; }