#!/usr/bin/perl -w
use strict;

use lib qw(blib/lib blib/arch);

use POE::Component::IKC::ClientLite;

my $name="Client$$";


my $remote=POE::Component::IKC::ClientLite->spawn(
            port=>21510,            
            name=>$name,
            timeout=>5,
    );

die $POE::Component::IKC::ClientLite::error unless $remote;

print "Hello\n";
$remote->post('IKC/ping', 'PING') 
        or die $POE::Component::IKC::ClientLite::error;
print "world\n";
my $ret=$remote->call('IKC/ping', 'PING') 
        or die $POE::Component::IKC::ClientLite::error;
print "Simple $ret\n";

$|++;

for(my $q=0; $q<10; $q++)
{
    
    print "(((($q ";
    $ret=$remote->call('IKC/ping', 'PING') 
        or print '-', $POE::Component::IKC::ClientLite::error;
    print $ret if $ret;
    print "))))\n";
    sleep(1);
}
print "\n";