#!/usr/local/bin/perl
use strict;
use warnings;
use lib "lib";
use HTML::TagFilter;
my $p = HTML::TagFilter->new (
strip_comments=>1,
);
#eval { $p->strict_comment(1) };
#eval { $p->strict_names(1) };
#eval { $p->strict_end(1) };
#eval { $p->empty_element_tags(1) };
eval { $p->xml_mode(1) };
#eval { $p->marked_sections(1) };
$p->parse(<<'HTML');
