#!/bin/perl -w



# Changing dir to Log dir

`cd /opt/app1/osa/ebcp/5_5_4/log/`;

open(FILE,'AppOsaEbcp1.log');


$major=0;
$minor=0;
$critical=0;

while(<FILE>)
{
     chomp;
      
     if(/MAJOR/)
     {
                 $major=$major+1;
     }
     if(/CRITICAL/)
     {
         $critical=$critical+1;
     }
     if(/MINOR/)
     {
                 $minor=$minor+1;
     }
    
}
close(FILE);

printf("Count of MAJOR = $major,  CRITICAL = $critical, MINOR = $minor\n");