log4perl.rootLogger=INFO, LOGFILE #### log4perl.rootLogger=DEBUG, LOGFILE #### use Log::Log4perl qw(:easy); Log::Log4perl->easy_init( { level => $debug ? $DEBUG : $INFO, file => ">>$log_file", layout => '[%-5p] [%d{yy-MM-dd hh:mm:ss.SSSSSS}][%r] %m - line: %L%n' } ); #### INFO( 'Start' ); # Only use if not allowing STDOUT #LOGDIE( 'No destination directory defined!' ) unless $dest_dir; DEBUG( 'Dir: ', $dest_dir ) if $debug;