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