my $parser = XML::LibXML->new();
my $xml = $parser->parse_fh(*DATA);