my $logger = Log::Log4perl::get_logger();

# Loglevel ändern, 
use Log::Log4perl::Level;
$logger->level($neues_log_level)