Log4perl logger in diagnostic part