convert to log4perl
cleanup