Select Code to Download

$sock = IO::Socket::INET->new(
                           PeerPort  => 9999,
...
                           LocalAddr => 'localhost',
                           Broadcast => 1 ) 
                       or die "Can't bind : $@\n";