XML::LibXML->load: specify location, string, or IO at C:\test\xml1.pl line 7

##</code><code>##

my $root = XML::LibXML->load_xml( fh => \*DATA )->documentElement;