#! /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 $/;<DATA>};
$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__
<div>
  <p>tidy</p>
  <img src="pic.jpg">
</div>