add hello world

Author: oylenshpeegul

receive.pl

@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use v5.24;
+use warnings;
+use Net::AMQP::RabbitMQ;
+
+my $mq = Net::AMQP::RabbitMQ->new();
+
+$mq->connect('localhost', { user => 'guest', password => 'guest' });
+
+$mq->channel_open(1);
+
+$mq->queue_declare(1, 'hello');
+
+$mq->consume(1, 'hello');
+
+say ' [*] Waiting for messages. To exit press CTRL-C';
+while (1) {
+my $received = $mq->recv(0);
+say " [x] Received '$received->{body}'";
+}

send.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+
+use v5.24;
+use warnings;
+use Net::AMQP::RabbitMQ;
+
+my $mq = Net::AMQP::RabbitMQ->new;
+
+$mq->connect('localhost', { user => 'guest', password => 'guest' });
+
+$mq->channel_open(1);
+
+$mq->queue_declare(1, 'hello');
+
+$mq->publish(1, 'hello', 'Hello, World!');
+
+say " [x] Sent 'Hello World!' ";
+
+$mq->disconnect;