sub on_renconnect {
  my $ts = localtime;
  print " [$ts] Sucessfully connected to $renhost:$renport !...\n";
  $_[HEAP]->{server}->put($renpassword);    
  $_[KERNEL]->alias_set("ren");
}

##</code><code>##

# 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]);
    },
  },
);

##</code><code>##

    ## HERE I WANT TO SENT THE $RENMSG FROM THE IRC CHANNEL TO THE TCP SERVER 
    $kernel->post(ren => send_data => "msg $nick\@TRiNiTY\: $renmsg");