$log->level($Log::Log4perl::DEBUG);