sub lee_socket
{
   print "lee_socket\n";
   my $conexion = $Socket_->accept();

   my $mensaje;

   while( defined( my $buffer = <$Socket_> ) ) # read from the socket
   {
     print "From client: $buffer" ;
     $mensaje = $mensaje . $buffer ;
   }

   close($Socket_);
}

##</code><code>##

$mw ->fileevent($socket, readable => sub {
       my $line = <$socket>;
         unless (defined $line) {
            $mw->fileevent($socket => readable => '');
            return;
          }
      $log->insert(end => $line);
  });