perl program.pl | tee -a output.txt

##</code><code>##

$| = 1;