#!/usr/bin/perl

use strict;
use warnings;

use POE::XS::Queue::Array;
use POE
   qw(  Loop::Event Wheel::SocketFactory Wheel::ReadWrite Filter::Stream);