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