sub my_print { print @_; print CLEANLOG @_ }
sub err_print { print STDERR @_; print ERRLOG @_ }