my $file = do { local $/; <DATA> };
my $d = XML::LibXML->new->parse_string($file);