ãããªãã§è¯ãããªãã #!/usr/bin/perl use strict; use warnings; use POSIX ":sys_wait_h"; use Protocol::WebSocket::Handshake::Client; use Protocol::WebSocket::Frame; use IO::Socket; use open ':utf8'; use open ':std'; $| = 1; run(); sub run { my $s = IO::Socket::INET->new(PeerAddr => '127.0.0.1', PeerPort => 50000, Proto => 'tcp'); if ($s->connected) { my $hc = Protocol::WebSocket::Handshake::Client->new(url
{{#tags}}- {{label}}
{{/tags}}