#!/usr/bin/perl -w
use strict;
use HTML::Clean;
clean_file( $_ ) foreach glob "*.html";
sub clean_file {
my ($filename) = shift;
print "$filename is being cleaned!\n";
my $h = new HTML::Clean($filename,9) or die "Couldn't load $filename: $!\n";
$h->compat();
$h->strip();
my $myref = $h->data();
open(OUTPUT,">$filename") or die "Can't open $filename: $!";
print OUTPUT $$myref;
close(OUTPUT);
}