#!/usr/bin/perl -w
use strict;
use CGI;

my $query=new CGI();
print $query->start_html(-title=>'Printer Status');

open(LOG," /path/to/logfile") || die "Cannot open logfile!: $!\n";
while(<LOG>) {
	print $query->br,"$_ ",br;
}
close(LOG);
exit;