open(OUT, $flag ? ">>output.txt" : ">>-") or die "...";