#!/usr/bin/perl
use strict;
use XML::LibXML;
my $xml_string = <<EOF;
<?xml version="1.0"?> 
<root> 
  <aaa id='test'> 
    <bbb/> 
  </aaa> 
</root> 
EOF
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($xml_string) || die;
my $elem = $doc->getElementsById('test');
print STDERR $elem."\n";