#!perl;

use strict;
use warnings;

use Log::Log4perl qw(get_logger);
Log::Log4perl->init("log.conf");

my $logger = get_logger("logfile.log");
$logger->info("This will get logged\n");
$logger->debug("This will not\n");

print "The quick brown fox jumped over the lazy dogs\n";

##</code><code>##

log4perl.rootLogger=INFO, LOGFILE

log4perl.appender.LOGFILE=Log::Log4perl::Appender::File
log4perl.appender.LOGFILE.filename="c:report\logfile.log"
log4perl.appender.LOGFILE.mode=append

log4perl.appender.LOGFILE.layout=PatternLayout
log4perl.appender.LOGFILE.layout.ConversionPattern=[%r] %F %L c - %m%n