Select Code to Download

$sock = new IO::Socket::INET (    LocalHost  => $host,
                                              LocalPort=> $port,
                                              Proto=> 'tcp',
                                              Listen=> 5,
                                              Reuse => 1,
                                                        );

$sock = new IO::Socket::INET (  PeerAddr  => $host,
                                      PeerPort   => $peerport,
                                      Proto  => 'tcp',
                                                );