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";