elsif ( $cntr > 2 ) {
         for (@p) {
....

##</code><code>##


use strict;
use warnings;
if ( -s $log ) {
    $cntr = 0;
    $flag = 1;
    open $CF, ">>", $cntrF or die "'$cntrF' did not open $!\n";
    print $CF "$flag\n";
    sleep 1;
    close $CF;
    sleep 1;
    open $CF, "+<", $cntrF or die "'$cntrF' did not open $!\n";
    while (<$CF>) {
        while (m/\b$flag\b/g) {
            $cntr++;
        }
    }
    print $cntr;
    if ( $cntr <= 2 ) {
        _mailme($alertaddr, $Esubject, $log);
        $CF->close;
    }
    elsif ( $cntr > 2 ) {
         for (@p) {
              if ( $_ >= 99 ) {
                  _mailme($alertaddr, $Esubject, $log);
                  last;
              }
         }
    $CF->close;
    }
    else {
        $CF->close;
    }
}