Select Code to Download

$sock = IO::Socket::INET->new(PeerAddr => 'www.perl.org',
                                 PeerPort => 'http(80)',
...
                                 Broadcast => 1 ) 
                             or die "Can't bind : $@\n";

   $sock = IO::Socket::INET->new(Listen    => 5,
                                 LocalAddr => 'localhost',
                                 LocalPort => 6969,
                                 Proto     => 'udp');