This program is a small Perl script that will generate an XML schema using one or multiple XML file(s) as its input. The script is very limited tho and will only successfully generate schemas for very simple XML files.
It depends on the Perl XML::DOM::Parser module.
Usage: xsd-inference file1.xml [file2.xml [...]] [-o schema.xsd]