Server mac Meldung Port Client Status Schleife

socket ip des clients heraus bekommen

Hallo NG

Ich habe mir einen kleinen Server gebaut, der die Informationen der in
Netzwerk vorhandenen Client am Port 334 empfängt.

#!/usr/bin/perl -w
use IO::Socket;
my $sock = new IO::Socket::INET (
LocalPort => 334,
Proto => 'udp',
Reuse => 1)|| die "$!\n";

# In der Schleife auf eingehende Verbindungen warten...
print "Server laeuft, zum Beenden Strg+C eingeben\n";
while ( ) {

chomp($Status = <$sock>);
chomp($Mac = <$sock>);
chomp($Meldung = <$sock>);
print "$Mac $Status $Meldung\n";

system("/test/test1 $Mac $Status $Meldung");

}

Nun möchte ich die IP-Adresse es senden Client in eine Variable aufnehmen.

Doch leider weiss ich nicht wie.

Ich wäre froh wenn mir jeman einen kleine Tipp geben könnten.

Gruß
Marcus