diff --git a/util/range_messages_differ.pl b/util/range_messages_differ.pl
index 3e9e8f8..1b8fcd7 100755
--- a/util/range_messages_differ.pl
+++ b/util/range_messages_differ.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use v5.10;
 
 my @xml =
 	map {
@@ -9,5 +10,7 @@
 	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
+say "Files are ", $xml[0] eq $xml[1] ? 'the same' : 'different';
+
+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