diff --git a/mdx/incommon/showorder.pl b/mdx/incommon/showorder.pl
new file mode 100755
index 00000000..8e99df7d
--- /dev/null
+++ b/mdx/incommon/showorder.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+my $id;
+my $reg;
+
+while (<>) {
+	if (/entityID=['"]([^'"]*)/) {
+		$id = $1;
+	}
+	if (/registrationAuthority=['"]([^'"]*)/) {
+		$reg = $1;
+		print "$reg -> $id\n";
+	}
+}