$self->{SOCK} = new IO::Socket::INET(LocalPort=>$port,
                                     Proto=>"tcp",
                                     Listen=>10,
                                     Reuse=>1,
                                     Blocking=>0);