#!/bin/perl -w
use strict;           ## be strict! always!

my $logdir = '/opt/app1/osa/ebcp/5_5_4/log';
my $logfile = 'AppOsaEbcp1.log';

# Changing dir to Log dir; use perl!
chdir $logdir or die "chdir $logfile failed: $!\n";

# check open for success!!
open my $fh, '<', $logfile or die "$logfile: open failed: $!\n";

my %count;
while( <$fh> ) {
	if ( /(MAJOR|MINOR|CRITICAL)/ ) {
		$count{$1}++;
	}
}

close $fh or die "$logfile: close failed: $!\n";

# now with a printf()
printf(
	"Count of MAJOR = %d, CRITICAL = %d, MINOR = $%d\n",
	@count{qw(MAJOR CRITICAL MINOR)}
);