log4perl improve