#!perl

use POE qw(Component::Client::TCP Filter::Stackable Filter::Block);
use YuGiOh::Filter;
#use YuGiOh::Constants;
use Digest::MD5;
use Data::Dumper;
use constant {
   PORT => 1001,
};

POE::Component::Client::TCP->new
 ( RemoteAddress  => '192.168.1.11',
   RemotePort     => PORT,
   ConnectTimeout => 5,              # Seconds; optional.

   #Started        => \&handle_starting,   # Optional.
   #Args           => [ "arg0", "arg1" ],  # Optional.  Started args.

   #Connected      => \&handle_connect,
   #ConnectError   => \&handle_connect_error,
   #Disconnected   => \&handle_disconnect,

   ServerInput    => \&handle_server_input,
   #ServerError    => \&handle_server_error,
   #ServerFlushed  => \&handle_server_flush,

   Filter         => ["POE::Filter::Stackable", Filters => [new POE::Filter::Block(),new YuGiOh::Filter()]],

 );

 $poe_kernel->run();


 sub handle_server_input {
    my($session,$message) = ($_[SESSION],$_[ARG0]);
    print Dumper($message);

 }