sub localIPAddress {
    my $socket = new IO::Socket::INET (
        Proto       => 'udp',
        PeerAddr    => '192.168.0.0',
    );
    my $localAddress = $socket->sockhost();
    $socket->close();
    return $localAddress;
}

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