$server = IO::Socket::INET->new(Proto=>'tcp',
                                LocalPort=> 9000,
                                Listen=> SOMAXCONN,
                                Reuse =>1)
        or die "Can't bind: $!\n";