#!/usr/bin/perl -w

use warnings;
use strict;
use Term::ANSIColor;

my $log = "error.log";

my %seen =();

open (my $fh, "<", $log) or die "unable to open $log: $!";

while( my $line = <$fh> ) {
    chomp $line;

    if( $line =~ /error/ ){
       $seen{$line}++;
    }
}
close $fh;

for my $key ( keys %seen ) {

    if( $line =~ /PHP Fatal error/ ){
       print colored("$key:\n","red");
    }
}