diff --git a/libs/esl/perl/dump_events.pl b/libs/esl/perl/dump_events.pl
new file mode 100755
index 0000000000..7ed018e7fa
--- /dev/null
+++ b/libs/esl/perl/dump_events.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+require ESL;
+
+my $command = shift;
+my $args = join(" ", @ARGV);
+
+my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
+$con->events("plain","all");
+while ( $con->connected() ) {
+    my $e = $con->recvEventTimed(0);
+    print $e->serialize;
+}