Request-reply worker in Perl

#!/usr/bin/perl
=pod

Hello World server

Connects REP socket to tcp://*:5560

Expects "Hello" from client, replies with "World"

Author: Alexander D'Archangel (darksuji) <darksuji(at)gmail(dot)com>

=cut

use strict;
use warnings;
use 5.10.0;

use ZeroMQ qw/:all/;

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

# Socket to talk to clients
my $responder = $context->socket(ZMQ_REP);
$responder->connect('tcp://localhost:5560');

while (1) {
# Wait for next request from client
my $string = $responder->recv()->data;
say "Received request: [$string]";

# Do some 'work'
sleep (1);

# Send reply back to client
$responder->send('World');
}