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