use strict;
use warnings;
use Log::Log4perl;

# Define a logger
my $log = Log::Log4perl->get_logger("abc.def.ghi");

# Define a logger layout
my $layout = Log::Log4perl::Layout::PatternLayout->new("%d > %m %n");

# define appender for console output
my $appender_screen = Log::Log4perl::Appender->new("Log::Log4perl::Appender::Screen",name => 'console');

# Set the appender's layout and add it
$appender_screen->layout($layout);
$log->add_appender($appender_screen);

$log->info("This is an info message");

$log->error("This is an error message");