my $type=2;
my $key=85170777777;
my $bin = pack('Cx7Q',$type,$key);
my $res = $me->{mq}->publish(1, "nc.look", $bin, {exchange=>'nc'}, {reply_to => $me->{replyQ},});
$res = $me->{mq}->recv();
print Dumper $res;