my $schema = XML::LibXML::Schema->new(location =>$xsd); 
 

  my $parser = XML::LibXML->new;  
    my $doc = $parser->parse_file($xml); 
    eval { $schema->validate( $doc ) };  
    if ( my $ex = $@ ) {         return $ex;     }     
return; }