Select Code to Download

  for my $a ( keys %users ) {
          print "send to extension: $a ";
          my $sck=$users{$a};
...

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