1 files changed, 11 insertions, 0 deletions
diff --git a/deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send_many.pl b/deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send_many.pl
new file mode 100755
index 0000000000..f6ff54ed95
--- /dev/null
+++ b/deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send_many.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+# send a message to the queue 'foo'
+use Net::Stomp;
+my $stomp = Net::Stomp->new({hostname=>'localhost', port=>'61613'});
+$stomp->connect({login=>'guest', passcode=>'guest'});
+for (my $i = 0; $i < 10000; $i++) {
+    $stomp->send({destination=>'/queue/foo',
+		  bytes_message=>1,
+		  body=>($ARGV[0] or "message $i")});
+}
+$stomp->disconnect;