#!/bin/perl
use strict;
use warnings;
use Data::Denter;
use POE::Component::IKC::ClientLite;
my $poe = POE::Component::IKC::ClientLite->spawn(
port => 6666,
# serialiser => 'POE::Component::IKC::Freezer'
);
die POE::Component::IKC::ClientLite::error() unless $poe;
my $ret = $poe->post_respond("Service/event", {Hi=>"There"});
warn "ret=", Denter $ret;