sub buscar_exten{
     my $exten=@_[0];
     my $href;
     my $role;
     my $some;
     print "buscando si <$exten> esta logueada-\n";
     foreach my $fn (@users) {
          open my $fh, ">&=$fn" ;# or warn $! and die;
          send($fh,"evento llamada $exten\n",0) ;
          print "}\n";
     }
}

##</code><code>##

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");
     }
}

##</code><code>##

          on_close => sub {
               my($code) = @_;

               # remove websocket from active list
               @users = grep { $_ ne $cgi } @users;

               $cgi->{self} = undef;
               $cgi = undef;
          },