#!/usr/bin/perl

use common::sense;
use ZeroMQ ':all';
use Data::Dumper;

my $ctx = ZeroMQ::Context->new();

my $sock = $ctx->socket(ZMQ_PULL);
$sock->setsockopt(ZMQ_HWM, 500);
$sock->bind('tcp://*:5558'); 

$SIG{HUP}  = sub {
  print "got hup\n";
};

while (1)
{
  my $msg = $sock->recv();
  print "got message\n";
  print Dumper(\$msg);
}

##</code><code>##

got hup
got message
$VAR1 = \undef;