#!/usr/bin/perl
#
#
#
print "Content-type: text/html\n\n";
print '<meta http-equiv="refresh" content="10" /><PRE>'. qx{tail -n 23 /var/log/apache2/error.log}. '</PRE>';