use strict;
use Log::Log4perl qw(get_logger);

# Define configuration for file test.log, STDERR, and STDOUT
my $conf = q(
        log4perl.logger                         = ALL, FileApp, ScreenSTDERR, ScreenSTDOUT

        log4perl.appender.FileApp               = Log::Log4perl::Appender::File
        log4perl.appender.FileApp.filename      = test.log
        log4perl.appender.FileApp.layout        = PatternLayout
        log4perl.appender.FileApp.layout.ConversionPattern = %m%n

        log4perl.appender.ScreenSTDERR          = Log::Log4perl::Appender::Screen
        log4perl.appender.ScreenSTDERR.stderr   = 1
        log4perl.appender.ScreenSTDERR.layout   = PatternLayout
        log4perl.appender.FcreenSTDERR.layout.ConversionPattern = %m%n

        log4perl.appender.ScreenSTDOUT          = Log::Log4perl::Appender::Screen
        log4perl.appender.ScreenSTDOUT.stderr   = 0
        log4perl.appender.ScreenSTDOUT.layout   = PatternLayout
        log4perl.appender.ScreenSTDOUT.layout.ConversionPattern = %m%n
);

# Initialize logging behaviour
Log::Log4perl->init( \$conf );

# Obtain a logger instance
my $logger = get_logger("Chess::GUI");
$logger->info("This is going to test.log, STDERR, and STDOUT.");