tcp client using zeromq

zeromq_echo_client.pl

use strict;
use warnings;
use ZeroMQ qw/:all/;
use Data::Dumper;

my $peer_addr = 'tcp://127.0.0.1:1986';

my $context = ZeroMQ::Context->new;
my $sock = $context->socket(ZMQ_REQ);
$sock->connect($peer_addr);

while (<>) {
  chomp;
  my $msg = ZeroMQ::Message->new($_);
  $sock->send($msg);
  $msg = $sock->recv;
  print $msg->data, "\n";
}