$sock = new IO::Socket::INET(
LocalAddr => '192.168.0.138',
PeerAddr => '255.255.255.255',
PeerPort => '9190', # Port the udp server listens on
Proto => 'udp',
Broadcast => 1 # Not sure if this is needed, I know the sockopt is
) || die "[ERROR] $!\n";
$sock->sockopt(SO_BROADCAST, 1);
print $sock "test\n";