#!/usr/local/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser carpout);
use Time::Local;

print "Content-type: text/html\n\n";

#$time = timelocal($sec,$min,$hour,$mday,$mon,$year);

open LOGFILE, "datafile.html";
@log_data = <LOGFILE>;

foreach $log_line(@log_data) {
   $log_line =~ s/.*(left square bracket)/ /;
   $log_line =~ s/"GET.*"h/ /;
   $log_line =~ s/".*/ /;
   print $log_line, "<p>";
}  <p>