#!/usr/bin/perl 

use strict;
use warnings;
use XML::Compare tests => 2;

my $xml1 = '<xml><abc> abcd </abc></xml>';
my $xml2 = '<xml><abc> abcd e </abc></xml>';

my $same = eval { XML::Compare::same( $xml1, $xml2 ); };
if ($same) {
    print  "same" ;
}
else {
    print "different: $@";
}
[download]