Some thoughts in a hurry: perhaps it might be a good idea to take a look at Log::Any?

From the friendly manual:

Getting a logger

The most convenient way to get a logger in your module is:

use Log::Any qw($log);

our $log = Log::Any->get_logger;
[download]

Please see ibidem for details.

IMHO Log4j is fubar - as well as Log::Log4perl is.

Regards, Karl