sub make_server
{
    my ($ipv6,$conn) = @_;
    
    print "Using protocol = $protocol, port = $socket_port.\n" if ($debug);
    
    if ($ipv6)
    {
        $server = IO::Socket::INET->new(Listen     => $conn,
                              LocalAddr  => "localhost:$socket_port",
                              Proto      => $protocol,
                              Reuse      => 1)
         or die "Couldn't make IPv6 server " . $server{'LocalAddr'} ." on port $socket_port: $!\n";
        print "Running IPv6 enabled on $socket_port.\n" if ($debug);
    }
    else
    {
        $server = IO::Socket::INET->new(LocalAddr  => "localhost:$socket_port",
                    Proto      => $protocol,
                    Reuse      => 1,
                    Listen     => $conn)
         or die "Can't make $protocol server " . $server{'LocalAddr'} . " on port $socket_port: $!\n";
        print "Running on $socket_port.\n" if ($debug);
    }
}