MessagePackを試してみる。うまくデータ渡せていないみたいでなにかおかしい

message_pack.pl

#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Socket;
use Data::MessagePack;
use Data::MessagePack::Stream;
use Data::Dumper;

my $cv = AnyEvent->condvar;
my $unpacker = Data::MessagePack::Stream->new;

tcp_server undef, 12345, sub {
    my ($fh, $host, $port) = @_;

    read($fh, my $message, 1024);

    warn unpack("H*", $message);
    $unpacker->feed($message);

    while ($unpacker->next) {
        print Dumper($unpacker->data);
    }
};

$cv->recv;

message_pack_client.pl

#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Socket;
use Data::MessagePack;
use Data::MessagePack::Stream;
use Data::Dumper;

my $cv = AnyEvent->condvar;

tcp_connect "localhost", 12345, sub {
    my ($fh) = @_
        or die "localhost 12345 connect failed: $!";

    my $data = {a=>1,b=>2};

    my $message = Data::MessagePack->pack($data);
    syswrite $fh, "$message";

    $cv->send;
};

$cv->recv;