use IO::Socket;
use strict;

my $sock = new IO::Socket::INET(
    'PeerAddr'  =>  '55.255.255.255'
    'PeerPort'  =>  '9',
    'Proto'     =>  'udp'
);
$sock->sockopt(SO_BROADCAST, 1);