sub factory_success {
  my $handle = $_[ARG0];


  my $wheel_id = POE::Wheel::ReadWrite->new( Handle      => $handle,
                                               Driver      => POE::Driver::SysRW->new(),
                                               Filter      => POE::Filter::SimpleQueryString->new(),
                                               InputEvent  => 'client_input',
                                             );

  $_[HEAP]->{clients}->{$wheel_id->ID} = $wheel_id;
}

sub client_input {
  my ($input, $wheel_id) = @_[ARG0, ARG1];

  use Data::Dumper;
  print Dumper $input;
  
  $_[HEAP]->{clients}->{$wheel_id}->put($input);
}