#!/usr/bin/perl -w

my $h = Myclass->new;

use XML::SemanticDiff;

my $diff =  XML::SemanticDiff->new(diffhandler => $h);

$diff->compare( qw(1.xml 2.xml));

package Myclass;

use Data::Dumper;
sub new { bless {}, shift }

sub rogue_element
{
        my ( $self, $name, $props ) = @_;
        print "Something\n";
        print "Element name is: $name\n";
        print Dumper($props);
}