Use Log4perl.