Select Code to Download

sub on_renconnect {
  my $ts = localtime;
...
  $_[HEAP]->{server}->put($renpassword);    
  $_[KERNEL]->alias_set("ren");
}

# Connetion to RenRem
POE::Component::Client::TCP->new(
...
    },
  },
);

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