use strict;
use warnings;
use IO::Socket::INET;

my $broadcast_address = '255.255.255.255';

my $socket = IO::Socket::INET->new(
    Proto => 'udp',
    Broadcast => 1,
    LocalPort => 8888,
    PeerAddr => $broadcast_address,
    PeerPort => 9999,
) or die "Could not create socket: $!\n";

my $message = "Broadcast message!";
$socket->send($message) or die "Send error: $IO::Socket::errstr\n";

my $hostAddr = $socket->sockhost();
my $hostPort = $socket->sockport();
print "Broadcast message sent from address $hostAddr:$hostPort\n";

$socket->close();