diff --git a/range_messages_differ.pl b/range_messages_differ.pl
new file mode 100755
index 0000000..3e9e8f8
--- /dev/null
+++ b/range_messages_differ.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+my @xml =
+	map {
+		s|<MessageDate>.*</MessageDate>||;
+		s|<MessageSerialNumber>.*</MessageSerialNumber>||;
+		$_;
+		}
+	map { local(@ARGV, $/) = $_; scalar <> }
+	@ARGV;
+
+exit $xml[0] eq $xml[1];  # 0 means they differ (aren't the same) - unix success
+                          # 1 means they don't differ (are the same) - unix failure