line 5 column 1 - Warning: <style> inserting "type" attribute
line 11 column 1 - Warning: trimming empty <p>
line 11 column 4 - Warning: trimming empty <p>


##</code><code>##

#!/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;