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