#!/usr/bin/perl -w
use HTML::Clean;
my @file_list = `ls *.html`;
foreach(@file_list) {
chomp();
clean_file($_);
}

sub clean_file {
    my ($filename) = shift;
    print "$filename is being cleaned!\n";
    my $h = new HTML::Clean($filename,9);
    $h->compat();
    $h->strip();
    my $myref = $h->data();
    open(OUTPUT,">$filename");
    print OUTPUT $$myref;
    close(OUTPUT);
}