根据IO::套接字::SSL（PERL）的留档，我知道如果我只想向主机上端口9999上运行的特定服务器程序发送命令，我可以这样做：

my $cl=IO::Socket::SSL->new("localhost:9999"); # locallost is my real case, anyway
if($cl) {
    $cl->connect_SSL or die $@;
    # Something about certificates?
    $cl->syswrite("Command");
    close($cl);
}

但我得到的错误是："SSL连接尝试失败与未知错误错误： 140770FC：SSL例程：SSL23_GET_SERVER_HELLO：未知协议blabla.cgi line 888"

服务器以这种方式初始化（在另一个pl程序中）：

use IO::Socket::SSL;
use Net::WebSocket::Server;
my $CON={};
my @crt=&SSLCerts(); die 'E101' if(@crt==0);
my $ssl=IO::Socket::SSL->new(
    Listen        => 10000,
    Timeout       => 45,
    LocalPort     => 9999,
    Proto         => 'tcp',
    SSL_cert_file => "$EF::Base/ssl/certs/$crt[0][0].crt",
    SSL_key_file  => "$EF::Base/ssl/keys/$crt[1][0].key"
) or die "E102: $!";

Net::WebSocket::Server->new(
    listen => $ssl,
    silence_max=> 3600,
    tick_period => 5,
    on_tick => sub {
         # Empty for now
    },
    on_connect => sub {
        my($serv,$conn)=@_; my($cid,$sid);
        $conn->on(
            handshake => sub {
                my($cnc,$hdk)=@_;
                my $nsn=$hdk->req->resource_name;
                $cid=substr($nsn,4,index($nsn,'&L=')-4);
                $CON->{$cid}=$cnc; # Register incomming connection
            },
            binary => sub {
                # Handle incomming message from the client
            },
            disconnect => sub {
                delete $CON->{$cid};
            }
        );
    }
)->start;

典型的Websocket客户端通过“wss：//”从浏览器连接，没有任何麻烦……服务器必须SSL…

在这里，我只是试图从perl中做同样的事情。

我做错了什么？没有提到客户端的证书，只有在服务器-服务器工作正常。也许配置？我已经购买了SSL证书，我将它们用于在该端口上运行正常的服务器。主机Linux（CentOS-如果重要的话）。