10:23:48.240377 IP 192.168.0.50.49153 > 192.168.0.255.4210: UDP, length 28

##</code><code>##

use strict;
use warnings;

use IO::Socket;

my $sock = IO::Socket::INET->new(
    Type => IO::Socket::SOCK_DGRAM,
    Proto => 'udp',
    PeerAddr  => '192.168.0.255:4210',
    Broadcast => 1,
    ReuseAddr => 1,
);
print inet_ntoa($sock->sockaddr()), ":", $sock->sockport(), "\n";
print inet_ntoa($sock->peeraddr()), ":", $sock->peerport(), "\n";

my $data;
$sock->recv($data, 100) or die "$!";
print "«$data»\n";

##</code><code>##

192.168.0.49:37550
192.168.0.255:4210