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

##</code><code>##

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