Wow thanks a lot!

I rewrote my code using AnyEvent::WebSocket::Client and it is working just the way I wanted!

Here's my code after changing it in case someone get curious:

#!/usr/bin/env perl

use strict;
use warnings;

use lib 'lib';
use Data::Dumper;

use AnyEvent::WebSocket::Client 0.12;

$|++;

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

$client->connect("ws://localhost:8082/")->cb(sub {

  our $connection = eval { shift->recv };
  if($@) {
    # handle error...
    warn $@;
    return;
  }

  $connection->send('a message');

  $connection->on(each_message => sub {
 
    my($connection, $message) = @_;
    if($message->is_text || $message->is_binary)
    {
        my $body = $message->body;
        print $body. "\n";
    }

  });

  $connection->on(finish => sub {
    my($connection) = @_;
    print "Server Disconnected!\n"

  });

});
AnyEvent->condvar->recv;
[download]