sub print_clean_stdout {
        my $result = shift;
        $check_description = shift;
        $check_result = shift;
        $severity_w = shift;

        if ( $result eq 'FAIL' ) {
                $tee->format_write( q/main::FAIL/ );
                $~ = 'FAIL';
                $failures++;
        }
        else {
                $tee->format_write( q/main::STD/ );
                $~ = 'STD';
                $successes++;
        }
        write;
        $^A = ''; # we have to mess with the accumulator
}