#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use HTML::Tidy;
undef $/;
open(M,"test.html") || die "$!";
my $html = <M>;
my $tidy = new HTML::Tidy;
$tidy->clean( "this file", $html );
for my $message ( $tidy->messages ) {
               print $message->as_string . "\n";
           }
print $html;