my $CF = new FileHandle "$cntrF", O_RDWR | O_APPEND || die '"cntrF' did not open $!\n";

##</code><code>##


$| = 1;
if ( -e $log ) {
    my $flag = 1;
    my $cntr = 0;
    no warnings;
    my $CF = new FileHandle "$cntrF", O_RDWR | O_APPEND || die "'cntrF' did not open $!\n";
    print $CF "$flag\n";
    while (<$CF>) {
        while (m/\b$flag\b/g) {
            $cntr++;
        }
    }
    print "$cntr\n";
    if ( $cntr <= 3 ) {
        _mailme($alertaddr, $Esubject, $log);
        $CF->close;
        exit 1;
    }
    elsif ( $cntr > 3 && $percnt >= 98 ) {
        _mailme($alertaddr, $Esubject, $log);
        $CF->close;
        exit 1;

    }
    else {
        $CF->close;
        print "closed\n";
        exit 0;