Select Code to Download

my $xml = q{<?xml version="1.0" encoding="UTF-8"?><response></response
+>};
my $dom = XML::LibXML->load_xml(string=>$xml);
...
print "isEmpty: ", ($isEmpty?"yes":"no"), "\n";
__END__
isEmpty: yes