gistfile1.pl

use Net::RabbitMQ;
use strict;
use warnings;
use JSON::XS;
use IPC::Run3;

my $mq = Net::RabbitMQ->new();
$mq->connect( "localhost", {} );
$mq->channel_open(1);
$mq->consume( 1, "myapp.jobs", { no_ack => 0 } );
while (1) {
    my $msg  = $mq->recv; 
    my $body = decode_json( $msg->{body} );
    print " [*] Processing $body->{id}", $/;
    run3 [ './bin/wkhtmltopdf-amd64', '-q', $body->{url}, "var/$body->{id}.pdf" ];
    $mq->publish( 1, $body->{reply_to},
        encode_json( { uri => "$body->{id}.pdf" } ) );
    $mq->ack( 1, $msg->{delivery_tag} );
    print "\t[x] done", $/ x 2;
}