use strict;
use AnyEvent;
    use AnyEvent::PocketIO::Client;
 use PocketIO::Client::IO;
#use PocketIO::Client::IO;
my $socket = PocketIO::Client::IO->connect("http://127.0.0.1:3001");


my $cv = AnyEvent->condvar;
my $w  = AnyEvent->timer( after => 5, cb => $cv );

$socket->on( 'message', sub {
    say $_[1];
} );

$socket->on( 'connect', sub {
    
    #$socket->send('Parumon!');
    $socket->emit( 'message', { name => 'name', message => 'msg emit' } );

    print "connected";
} );

$cv->wait;