Select Code to Download

#!perl

use POE qw(Component::Server::TCP Filter::Stackable Filter::Block);
...
   $_[SESSION]->yield('send' => [ACCEPT,passfail($_[ARG0])]);

}

package YuGiOh::Filter;
use Data::Dumper;
use strict;
...


1;

package YuGiOh::Filter::Stackable;
use base 'POE::Filter::Stackable';
use strict;
...
}

1;

#!perl

use POE qw(Component::Client::TCP Filter::Stackable Filter::Block);
...
    print Dumper($message);

 }