use HTML::Scrubber;
my $scrubber = HTML::Scrubber->new;
my $result=$scrubber->scrub_file('index.htm');