连接到WebSocket给出“握手错误：错误的响应行”

Question

我已根据https://metacpan.org/pod/AnyEvent::WebSocket::Client#SYNOPSIS创建了以下WebSocket客户端连接：

use Data::Dumper;
use AnyEvent;
use AnyEvent::WebSocket::Client;

my $client = AnyEvent::WebSocket::Client->new;

$client->connect("wss://example:8080")->cb(sub {
    my $connection = eval { shift->recv };
    if($@) {
        warn $@;
        return;
    }
    $connection->send("My message");

    $connection->on(each_message => sub {
        my($connection, $message) = @_;
        print "Recieved Message: $message\n"
    });
    $connection->on(finish => sub {
        my($connection) = @_;
        print "Disconnected...\n";
    });
    $connection->close;
});

AnyEvent->condvar->recv;

它给了我“握手错误：错误的响应行”，这是我的$ connection = eval {shift-> recv};

我尝试根据"handshake error: Wrong response line" when connecting to websocket解决问题，但是它一直给我一个问题。

能帮我解决握手错误并牢固建立WebSocket连接吗？