##




    First Name
    Last Name
    
      
        Main Street
        Main City
      
    


##

##




    First Name
    Last Name
    
      
        email1@test.org
      
    


##

##

#!/usr/bin/perl

package example;

use XML::LibXML;

use strict;
use warnings;

testExample1();
testExample2();

sub testExample1 {
    my $schema = XML::LibXML::Schema->new(
        location => "C:/temp1/personal.xsd"
    );
    my $document = XML::LibXML->load_xml(
        location => "C:/temp1/example1.xml"
    );

    $schema->validate( $document );
}

sub testExample2 {
    my $schema = XML::LibXML::Schema->new(
        location => "C:/temp1/personal.xsd"
    );
    my $document = XML::LibXML->load_xml(
        location => "C:/temp1/example2.xml"
    );

    $schema->validate( $document );
}