diff --git a/lib/MetaCPAN/SCO.pm b/lib/MetaCPAN/SCO.pm
index 4bc5e61..961576d 100644
--- a/lib/MetaCPAN/SCO.pm
+++ b/lib/MetaCPAN/SCO.pm
@@ -32,6 +32,9 @@ sub run {
 		if ($request->path_info eq '/feedback') {
 			return template('feedback');
 		}
+		if ($request->path_info =~ m{^/author/?$}) {
+			return template('author');
+		}
 
 		my $reply = template('404');
 		return [ '404', [ 'Content-Type' => 'text/html' ], $reply->[2], ];
diff --git a/tt/author.tt b/tt/author.tt
new file mode 100644
index 0000000..4a1b623
--- /dev/null
+++ b/tt/author.tt
@@ -0,0 +1,32 @@
+<br><div class=t4> Author</div><br>
+ <center>
+  <table class=chmenu><tr>
+<td><a href="?A"> A </a></td>
+<td><a href="?B"> B </a></td>
+<td><a href="?C"> C </a></td>
+<td><a href="?D"> D </a></td>
+<td><a href="?E"> E </a></td>
+<td><a href="?F"> F </a></td>
+<td><a href="?G"> G </a></td>
+<td><a href="?H"> H </a></td>
+<td><a href="?I"> I </a></td>
+<td><a href="?J"> J </a></td>
+<td><a href="?K"> K </a></td>
+<td><a href="?L"> L </a></td>
+<td><a href="?M"> M </a></td></tr><tr>
+<td><a href="?N"> N </a></td>
+<td><a href="?O"> O </a></td>
+<td><a href="?P"> P </a></td>
+<td><a href="?Q"> Q </a></td>
+<td><a href="?R"> R </a></td>
+<td><a href="?S"> S </a></td>
+<td><a href="?T"> T </a></td>
+<td><a href="?U"> U </a></td>
+<td><a href="?V"> V </a></td>
+<td><a href="?W"> W </a></td>
+<td><a href="?X"> X </a></td>
+<td><a href="?Y"> Y </a></td>
+<td><a href="?Z"> Z </a></td>
+  </tr></table>
+ </center><br />
+