test-perl

use IO::Socket::UNIX;
use JSON;
use AnyEvent;
use AnyEvent::Handle;
use Data::Dumper;

my $socket_path='/tmp/ddd.sock';
unlink $socket_path if -e $socket_path;

my $socket = IO::Socket::UNIX->new(
    Type => SOCK_STREAM,
    Local => $socket_path,
    Listen => 1,
);
die "Can't create socket: $!" unless $socket;
$client = $socket->accept;

my %auth = ('type'=>'auth', 'user'=>'sss', 'passwd'=>'ssssssss');
my $data = encode_json \%auth;

print "\n";
print $client  $data;

my $handle; 
$handle = new AnyEvent::Handle
    fh     => $client,
    on_error => sub {
       AE::log error => $_[2];
       $_[0]->destroy;
       $handle->destroy;
    },
    on_eof => sub {
       $handle->destroy; 
       AE::log info => "Done.";
    };
$handle->push_read (json => sub {
  my $arr = $_[1];
  print Dumper $arr;
  print "\n";
});

$cv = AE::cv;
$cv->recv;