my $server     = AnyEvent::WebSocket::Server->new();
my $tcp_server = tcp_server undef, 3000, sub {
    my ($fh) = @_;

    $server->establish($fh)->cb(
        sub {
            my $connection = eval { shift->recv };
            
            ...
            
            $connection->on(
                each_message => sub {
                    my ($connection, $message) = @_;
                    
                    # how i can get all connections 
                    # and then send message to all clients?
                    foreach my $connection (@all_connections) {
                        $connection->send($message) or die $!;
                    }
                }
            );

            ...

        }
    );
};