log4perl.rootLogger=DEBUG, Screen, FileRotate log4perl.appender.Screen=Log::Log4perl::Appender::Screen log4perl.appender.Screen.stderr=0 log4perl.appender.Screen.layout=Log::Log4perl::Layout::PatternLayout log4perl.appender.Screen.layout.ConversionPattern = %d %-1.1p %P %H %m%n log4perl.appender.FileRotate=Log::Dispatch::FileRotate log4perl.appender.FileRotate.filename=$logFileDir/$logFileName log4perl.appender.FileRotate.mode=append log4perl.appender.FileRotate.autoflush=1 log4perl.appender.FileRotate.DatePattern=yyyy-MM-dd-HH log4perl.appender.FileRotate.layout=Log::Log4perl::Layout::PatternLayout log4perl.appender.FileRotate.layout.ConversionPattern = %d %-1.1p %P %H %m%n #### Log::Log4perl::init(\$log_conf); my $log = Log::Log4perl->get_logger; if ($opt{d}) { # if starting as a daemon... # turn off the Screen appender # ?? # change the log level use Log::Log4perl::Level; $log->level($INFO); }