#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();

$cgi=new CGI();
print $cgi->header( 'text/plain' );

my $error_log = 'C:\Apache2\logs\error.log';
my $date = localtime;
$date = substr $date,0,10;
open my $fh, '<', $error_log or die $!;
while( <$fh> ){
   print if /$date/;
}
close $fh;