#!/opt/local/bin/perl
use strict;
use warnings;

use XML::LibXML;

use Data::Dumper;

my $parser = XML::LibXML->new;
my $doc = $parser->load_xml(
    location =>shift,
    validation => 0,
    load_ext_dtd => 0,
);
my $xpc = XML::LibXML::XPathContext->new; 
$xpc->registerNs( xml => "http://www.w3.org/1999/xhtml" );

print "result: ";
foreach my $node ($xpc->findnodes('/*', $doc)) {
    print $node->nodeName,"\n"; 
}
# result: html
print "\n";

print "result: ";
foreach my $node ($xpc->findnodes('/html', $doc)) {
    print $node->nodeName,"\n"; 
}
# result: 
print "\n";

print "result: ";
foreach my $node ($xpc->findnodes('/xml:html', $doc)) {
    print $node->nodeName,"\n"; 
}
# result: 
print "\n";