diff --git a/everything.stor b/everything.stor
index 96b43c2..010386b 100644
Binary files a/everything.stor and b/everything.stor differ
diff --git a/getauth.pl b/getauth.pl
new file mode 100755
index 0000000..7cd9156
--- /dev/null
+++ b/getauth.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+
+use strict;
+use lib './lib';
+
+use Dist;
+
+my $module = "Moose";
+
+print Dist::get_author $module
diff --git a/lib/Dist.pm b/lib/Dist.pm
index 6ce63ce..427b0cb 100755
--- a/lib/Dist.pm
+++ b/lib/Dist.pm
@@ -16,5 +16,15 @@ while (my $l = <$fh>) {
     $mod_to_dist{$module} = $dist;
 }
 
+sub get_author {
+  my $module = shift; # dist name or module name
 
+  if (my $dist = $mod_to_dist{$module}) {
+    if ($dist =~ m|^\w/\w\w/([^/]+)/[^/]+$|) {
+      return $1;
+    }
+  }
+
+  return '';
+}
 1;
diff --git a/modcache.stor b/modcache.stor
index 0c02ed2..50747b7 100644
Binary files a/modcache.stor and b/modcache.stor differ