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