chenryn

use AnyEvent;
use AnyEvent::PocketIO::Client;
use Data::Dumper;
use warnings;
use strict;
 
my $client = AnyEvent::PocketIO::Client->new;    
my $channel = '3:::{"type":"subscribe","channel":"syslog"}';
my $server = '192.168.1.199';
my $port = '8080';