open(our $TagPrint::THELOG, ">&", \*STDOUT) or die "dup: $!";
[download]

my $THELOG would be much better than our $THELOG, but that might involve big code changes.

Caveat: Now, you must use $THELOG where you previously used THELOG.