#!/usr/local/bin/perl

print "Content-type: text/html\n\n<title>Access Log Display</title>";

print "<html><body><pre>\n";

$x=`cat /var/www.logs/Rollover/access_log`;

print "$x</pre></html>\n";

exit 0;
