use strict;
use warnings;

use Log::Log4perl;

# initialize logging
Log::Log4perl->init('log4perl.conf');
my $log = Log::Log4perl->get_logger();

# perform some logging including MDC
$log->info("Logging initialized");
Log::Log4perl::MDC->put("MDC_key", "my MDC value");
$log->info("MDC used");