use strict;
use warnings;
use XML::LibXML 2;

my $doc = XML::LibXML->load_xml(IO => \*DATA);
my $bar = $doc->getElementsByTagName('bar')->get_node(1);

print $bar, "\n";

{
	no overloading;
	print $bar, "\n";
}

print $bar, "\n";


__DATA__
<foo><bar /></foo>