#!/usr/bin/perl -w

use CGI;

$q = new CGI;

print $q->header, $q->start_html("Boggle Solver Log");
print $q->h1("Boggle Server Log (oldest entries first)");
print "<pre>". `tail -1000 /tmp/boglog` . "</pre>";
print $q->end_html;
