redis_and_msgpack_perl_dec

use utf8;
use Data::Dumper qw(Dumper);
use open qw(:utf8 :std);
use Data::MessagePack;
use Redis;
print Data::MessagePack->new->decode(Redis->new->get("mpdata"))->{"address"}