Odd number of elements in hash assignment at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 36. Use of uninitialized value in print at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 41. Odd number of elements in hash assignment at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 36. Use of uninitialized value in print at /opt/perl/lib/site_perl/5.16.3/Log/Log4perl/Appender/Screen.pm line 41. #### 32 33 ################################################## 34 sub log { 35 ################################################## 36 my($self, %params) = @_; 37 38 if($self->{stderr}) { 39 print STDERR $params{message}; 40 } else { 41 print $params{message}; 42 } 43 } #### use strict; use warnings; use Log::Log4perl; use Data::Dumper; my $logconfig = <init(\$logconfig); my $logger = Log::Log4perl->get_logger("test"); my $appender = Log::Log4perl->appender_by_name("SCREENOUT"); print Dumper($appender)."\n"; $logger->add_appender($appender); print Dumper($logger)."\n"; $logger->info("Test info message"); $logger->debug("Test debug message"); $logger->info("Test asdf123"); $logger->debug("Test debug adfklgnfgnsldfijgl"); #### [2017-11-28 15:58:59.126326] Test info message [2017-11-28 15:58:59.129663] Test asdf123