# Connetion to RenRem
POE::Component::Client::TCP->new(
  RemoteAddress => $renhost,
  RemotePort    => $renport,
  Connected     => \&on_renconnect,
  ServerInput   => \&on_renrecieve,
  Disconnected  => \&on_rendisconnect,
  InlineStates  => {
    send_data   => sub {
      $_[HEAP]->{server}->put($_[ARG0]);
    },
  },
);