Select Code to Download

sub buscar_exten{
     my $exten=@_[0];
...
          print "}\n";
     }
}

sub buscar_exten{
     my $exten=@_[0];
...
          $websock->queue_msg("evento llamada $exten\n");
     }
}

          on_close => sub {
               my($code) = @_;
...
               $cgi->{self} = undef;
               $cgi = undef;
          },