#!/usr/bin/env perl

use warnings;
use strict;

use XML::LibXML;

my $parser = new XML::LibXML;
$parser->validation(1);
$parser->expand_entities(0);
$parser->keep_blanks(0);
$parser->pedantic_parser(1);
$parser->expand_xinclude(0);

foreach my $srcdoc ( @ARGV ? @ARGV : ('-') )
{
  my $doc = $parser->parse_html_file($srcdoc);
  print $doc->toStringHTML();
}