use Log::Log4perl::Level; $log->level($ERROR);