use HTML::Normalize;
my $norm = HTML::Normalize->new ();
open(IN,"index.html"); 
$dirty = <IN>;
close(IN);
my $cleanHtml = $norm->cleanup (-html => $dirtyHtml);
open(OUT,">output.html") or die "Cannot open file\n";
print OUT $cleanHtml;
close(OUT);