$sock = IO::Socket::INET6->new(PeerPort  => 9999,
                                 PeerAddr  => Socket6::inet_ntop(AF_INET6,in6addr_broadcast),
                                 Proto     => udp,    
                                 LocalAddr => 'localhost',
                                 Broadcast => 1 ) 
                             or die "Can't bind : $@\n";