my $xp = XML::Parser->new(Style => 'Tree');
  my $tree = $xp->parse($document);