Identify an UPD source

[Deviloper]

Hi there,

I got a question regarding IO::Socket. I am using IO::Socket to receive UPD 
datagrams from a number of hosts. It works fine, but I can´t figure out how to 
tell which host (and from which port) the datagram was send. I don´t want to 
change the packet data. Here is a code snipplet of what I am trying to do.

use IO::Socket::INET;
my $sock = IO::Socket::INET->new( LocalPort =>$receive_port, Proto => 'udp');

while ($sock->recv($packet,1548)) { 
#...do something...
}