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' } );