sub validate_xml {
 my $file_r = shift;
 # use Xerces to validate xml
 eval {
	`java sax.SAXCount -v $$file_r`;
 };
 if ($@) {
        print "$@\n";
        &log_error($@);
 }
}