Select Code to Download

use strict;
use warnings;
use HTML::Tidy;
...
my $tidy = HTML::Tidy->new();
my $clean = $tidy->clean($html);
print "Clean HTML:\n---------------------------\n$clean\n";