#!/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_REQ );

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

zmq_send( $socket, "Test");	

my $msg = zmq_recvmsg( $socket );
my $data = zmq_msg_data( $msg );
print Dumper $data;

zmq_close($socket);