my $tree = HTML::TreeBuilder->new_from_file($fn);
foreach my $a ($tree->lookdown('_tag', 'a')) {
  $a->attr('href') = lc($a->attr('href'));
}
open OUT, ">$fn" or die "Can't overwrite $fn ($!)";
print OUT $tree->as_HTML;
close OUT;
$tree->delete;