Select Code to Download

  use HTML::TokeParser;
  $p = HTML::TokeParser->new(shift||"index.html");
...
      my $title = $p->get_trimmed_text;
      print "Title: $title\n";
  }

<meta name="copyright" content="Aaron Anderson">
<meta name="keywords" content="free, cheap, fun">