sub InitLogger { my $logfile = shift; my $logconf = q| log4perl.logger.[package_name] = INFO, LogFile log4perl.appender.LogFile = Log::Log4perl::Appender::File log4perl.appender.LogFile.filename = LOGFILE log4perl.appender.LOG.mode = append log4perl.appender.LogFile.layout = PatternLayout log4perl.appender.LogFile.layout.ConversionPattern = %d %5p> %m%n |; $logconf =~ s/LOGFILE/$logfile/; Log::Log4perl->init( \$logconf ); return Log::Log4perl::get_logger("[package_name"); } # end InitLogger();