#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;
use ZMQ::LibZMQ3;
use ZMQ::Constants qw(:all);

my $ctxt = zmq_init;
my $socket = zmq_socket( $ctxt, ZMQ_REP );

zmq_connect( $socket, "tcp://nishant:6551" );

my $msg;

while($msg = zmq_recvmsg( $socket )){
	my $data = zmq_msg_data( $msg );
	print Dumper $msg;
	
	zmq_send( $socket, "RESPONSE: $data");		
}

zmq_close($socket);