open (STAT, "<", "$file")
while ( $content = <STAT> ) {
     :
    $errcnt  = $total - $content;
}

:

printf RPT "  Number of Rejected Records   : $errcnt\n";