use XML::SAX::ParserFactory;
use XML::Validator::Schema;

print "Enter the address of the XML file: ";
chomp($xml=<STDIN>);
print "Enter the address of the Schema file: ";
chomp($xsd=<STDIN>);

# create a new validator object, using foo.xsd
$validator = XML::Validator::Schema->new(file => $xsd);

# create a SAX parser and assign the validator as a Handler
$parser = XML::SAX::ParserFactory->parser(Handler => $validator);

# validate xml against xsd
eval { $parser->parse_uri($xml) };
if ($@) {
	print $@;
}