use HTML::Parser;

my $p = HTML::Parser->new( api_version => 3,
                                start_h => [\&start, "self,tagname, attr"]
                              );


$p->parse('<META NAME="TITLE" CONTENT="Page Title Here">');

sub start
{
   my ( $self, $tag, $attr ) = @_;

   if ($tag eq 'meta' && lc($attr->{name}) eq 'title' )
   {
      print $attr->{content};
      $self->handler(start => '' );
   }
}