sub buscar_exten{
     my $exten=@_[0];
     print "buscando si <$exten> esta logueada-\n";
     my $cnt=0;
     for my $websock (@users) {
          print "Sending message to socket in slot $cnt\n";
          ++$cnt;
          $websock->queue_msg("evento llamada $exten\n");
     }
}