use Log::Log4perl qw(:levels);
my $logger = Log::Log4perl->get_logger(__PACKAGE__);
$logger->level($DEBUG);

##</code><code>##

use Mylog;
#...
$LOG->warn("bla"); # $LOG is presumably a package global

##</code><code>##

use MyLog 'debug';

$LOG->warn("stuff");