use warnings;
use strict;

use HTML::TokeParser;
use Data::Dumper;

my $p = HTML::TokeParser->new(shift||"index.html");
my $tag;

  while ( $tag = $p->get_tag("meta") ) {

        if ( defined( $tag->[1]{'name'} ) ) {
                print $tag->[1]{'name'} . ": " . $tag->[1]{'content'} . "\n";
        };

#       print Dumper( \$tag ) . "\n";
  }