Perl implementation of the Schematron