#!/usr/bin/perl -w
use strict;
use POE;
use POE::Component::Client::TCP;
use POE::Filter::Reference;
my $host   = "localhost";    # The host to test.
my $port   = 11212;
my @values = (6, 2);
POE::Component::Client::TCP->new(
  RemoteAddress => $host,
  RemotePort    => $port,
  Filter        => "POE::Filter::Reference",
  Connected     => sub {
    my $j = "teste";
    print "connected to $host:$port ...\n";
    $_[HEAP]->{server}->put(\@values);
  },
  ConnectError => sub {
    print "could not connect to $host:$port ...\n";
  },
  ServerInput => sub {

    #when the server answer the question
    my ($kernel, $heap, $input) = @_[KERNEL, HEAP, ARG0];
    print "got result from $host:$port ... YAY!\n";

    #print to screen the result
    print $$input. "\n";
  },
);
$poe_kernel->run();
exit 0;