fix header output triggered by say() in perl 5.10.1+