my $hs = HTML::Strip->new();
sub clean_html {
    ...
}