use Tie::STDERR \$append_to_scalar;