echo server using zeromq

zeromq_echo_server.pl

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

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

my $context = ZeroMQ::Context->new;
my $sock = $context->socket(ZMQ_REP);
$sock->bind($server_addr);

while (1) {
  my $msg = $sock->recv;
  $sock->send($msg);
}