log4perl.logger=INFO, INFOLOGFILE 

log4perl.appender.INFOLOGFILE=Log::Log4perl::Appender::File
log4perl.appender.INFOLOGFILE.filename=x:\\Code\\jas\\logger\\addenable\info.log
log4perl.appender.INFOLOGFILE.mode=append

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

##</code><code>##

use Log::Log4perl qw(get_logger);
Log::Log4perl->init('logger.conf');
$exitcode = 1;

my $logger = get_logger();
if ($exitcode == 1){
  $logger->info("Something went right");
}