Log::Log4perl::Logger::APPENDER_BY_NAME{'STDOUT'}->threshold($TRACE);
Log::Log4perl->appender_by_name('STDOUT')->threshold($TRACE);