use strict;
use warnings;
use HTML::TreeBuilder;
use HTML::Lint;

my $html = do {local $/; (<DATA>)};

my $lint = HTML::Lint->new (only_types => HTML::Lint::Error::STRUCTURE);

$lint->parse ($html);
$lint->eof ();

print "HTML::Lint report:\n";
print join "\n", map {$_->as_string ()} $lint->errors ();

my $tree = HTML::TreeBuilder->new ();

$tree->parse ($html);
$tree->eof ();

print "\n\nTreeBuilder cleaned up HTML\n";
print $tree->as_HTML ();

__DATA__
<p><b><i>test</b></p>