sub log_toggle {
  ($_[0])
    ? Log::Log4perl->appender_thresholds_adjust(7)
    : Log::Log4perl->appender_thresholds_adjust(-7);
}