#! /usr/bin/perl use strict; use warnings; use HTML::Tidy; my $tidy = HTML::Tidy->new( { output_xhtml => 1, tidy_mark => 0, markup => 1, q{show-body-only} => 1, } ); printf qq{tidyp: %s\n}, $tidy->tidyp_version; printf qq{libtidyp: %s\n}, $tidy->libtidyp_version; printf qq{HTML::Tidy: %s\n}, $HTML::Tidy::VERSION; my $html = do {local $/;}; $tidy->parse(q{test.html}, $html) or die q{parse failed}; for my $message ($tidy->messages){ print $message->as_string, qq{\n}; } my $xhtml = $tidy->clean($html); print $xhtml; __DATA__

tidy

##

tidyp:      1.04
libtidyp:   1.04
HTML::Tidy: 1.54

test.html (1:1) Warning: missing  declaration
test.html (1:1) Warning: inserting implicit 
test.html (1:1) Warning: inserting missing 'title' element
test.html (3:3) Warning:  lacks "alt" attribute


tidy