--- a/scripts/report	Thu Nov 05 18:15:14 2015 +0100
+++ b/scripts/report	Thu Nov 05 18:17:29 2015 +0100
@@ -4,19 +4,21 @@
 use warnings;
 use File::Find;
 use List::Util qw(max);
+use Pod::Usage;
 
-my %fail;
+pod2usage() if not @ARGV;
 
 my @files = do {
     my @r;
     find(sub {
 	-f and /^log\./ or return;
 	push @r, $File::Find::name;
-    }, @ARGV ? @ARGV : glob("out*"));
+    }, @ARGV);
     @r;
 };
 
 
+my %fail;
 foreach my $file (@files) {
     my ($name, $platform) = $file =~ /out-?(.*?)\/log\.(.*)/;
     my ($os) = $platform =~ /(^.*?)-/;
@@ -62,3 +64,19 @@
     }
 }
 
+__END__
+
+=head1 NAME
+
+ report - report differences of two or more exim testsuite runs
+
+=head1 SYNOPSIS
+
+ report DIR...
+
+=head1 DESCRIPTION
+
+B<report> shows the differences between to Exim testsuite runs. That is,
+it compares the list of failed tests.
+
+=cut