use 5.010; use JSON; use XML::LibXML::Debugging; my $dom = XML::LibXML->new->parse_string(< Test

Test

Just a test!

XML say "========"; say $dom->toClarkML; say "--------"; say to_json($dom->toDebuggingHash, {pretty=>1, canonical=>1}); say "========";