progress.pl using $| to flush before newline