Simple Plack Server that publises ZeroMQ messages

webserver_psgi.pl

#!/usr/bin/env perl
use 5.016;
use Plack::Runner qw();

use ZMQ::LibZMQ3;
use ZMQ::Constants qw(ZMQ_PUB);
my $context = zmq_init();
my $publisher = zmq_socket($context, ZMQ_PUB);
zmq_bind($publisher, 'tcp://*:5556');

my $app = sub {
    my $env = shift;
    my $path = $env->{PATH_INFO};
    zmq_send( $publisher, "request $path" );
    return [
        '200',
        [ 'Content-Type' => 'text/plain' ],
        [ "You requested: $path" ],
    ];
};

my $runner = Plack::Runner->new;
$runner->parse_options(@ARGV);
$runner->run($app);