#----------------------------------------------------------
#  Validate against XML schema.
#----------------------------------------------------------
my $xml_schema =
  XML::LibXML::Schema->new(
    location => '/Users/dattanik/Programs/XML/admin_server.xsd' );
eval { $xml_schema->validate($dom); };

if ($@) {
    print "Looks like schema validation has failed. \n";
    print "$@", "\n";
}
else {
    print "XML Schema validation succeeded.\n";
}