#! /usr/bin/perl -w

use strict;
use XML::LibXML;

my $doc = new XML::LibXML;
$doc->parse_file('stsdef.xml');
my $rng = new XML::LibXML::RelaxNG(location => 'stsdef.rng');
$rng->validate($doc);