Yet Another CPAN Grep

Task-HTML5 ( T/TO/TOBYINK/Task-HTML5-0.103.tar.gz, TOBYINK, 2011; MetaCPAN )

Task-HTML5/lib/Task/HTML5/Examples/htmltidy.pod ( view source; MetaCPAN )

rser = HTML::HTML5::Parser->new;
  my $dom = ($input eq '-')
    ? $parser->parse_string(do { local $/ = <STDIN> })
    : $parser->parse_file($input);
  
  # Use HTML::HTML5::Sanity to fix up HTML qui