for my $a ( keys %users ) {
          print "send to extension: $a ";
          my $sck=$users{$a};
          $sck->queue_msg("evento llamada $exten\n");
      } 

.......
EV: error in callback (ignoring): Can't call method "queue_msg" on an undefined value at server16.pl line 86