use strict;
use warnings;

use Log::Log4perl;
use Data::Dumper;

my $logconfig = <<EOT;
log4perl.appender.TEST=Log::Dispatch::FileRotate
log4perl.appender.TEST.utf8=1
log4perl.appender.TEST.filename=/var/log/test.log
log4perl.appender.TEST.mode=append
log4perl.appender.TEST.size=1000000
log4perl.appender.TEST.max=10
log4perl.appender.TEST.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.TEST.layout.ConversionPattern=[%d{yyyy-MM-dd HH:mm:ss.SSSSSS}] %m%n

log4perl.appender.SCREENOUT=Log::Log4perl::Appender::Screen
log4perl.appender.SCREENOUT.stderr=0
log4perl.appender.SCREENOUT.min_level=info
log4perl.appender.SCREENOUT.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.SCREENOUT.layout.ConversionPattern=%m%n

log4perl.rootLogger=INFO, SCREENOUT
log4perl.logger.test=INFO, TEST
EOT

Log::Log4perl->init(\$logconfig);
my $logger = Log::Log4perl->get_logger("test");

my $appender = Log::Log4perl->appender_by_name("SCREENOUT");
print Dumper($appender)."\n";

$logger->add_appender($appender);
print Dumper($logger)."\n";

$logger->info("Test info message");
$logger->debug("Test debug message");

$logger->info("Test asdf123");
$logger->debug("Test debug adfklgnfgnsldfijgl");