Select Code to Download

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

foreach my $change ($diff->compare($file, $file2)) {
 print "$change->{message} in context $change->{context}\n";
}

my $diff = new XML::SemanticDiff->new(keepdata);
$diff->setHandlers(rogue_element  =>    \&rogueElement);
...
sub rogueElement{
  print "something\n";
}