#!/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);
}