#!/usr/bin/perl --
use strict;
use warnings;
use XML::LibXML;
my $schemafile =  'base-schema.xsd';
my $schema = XML::LibXML::RelaxNG->new( location => $schemafile);
my $filename = 'foo.xml';
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($filename);
$schema->validate($doc);
print "\n\nWe've made it this far without dying (ie you read this mess
+age) $schemafile is valid, and so is $filename \n\n"
[download]