sub sockInit{

use AnyEvent::WebSocket::Client 0.12;
use URI

my $client = AnyEvent::WebSocket::Client->new( );

 
    my $uri = URI->new('ws://mydomain.com/ws/test');

    $client->connect($uri)->cb(sub {
 
      our $connection = eval { shift->recv };
         if($@) {
          # handle error...
          myDebug($@);
          return;
     }
   
    # send a message through the websocket...
    # $connection->send('ping');
   
   });

  }