#!/usr/bin/perl

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

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

my $error_log = '/path/to/error_log';
open my $fh, '<', $error_log or die $!;
while( <$fh> ){
    print;
}
close $fh;