use HTML::TokeParser::Simple;

my $p = HTML::TokeParser::Simple->(shift || "index.html");
my @meta_tags;
while($t = $p->get_token()) {
  push @meta_tags, $t if $t->is_tag('meta');
}