Most likely, you want to use HTML::HeadParser instead of using HTML::Parser yourself.

use strict;
use HTML::HeadParser;

$p = HTML::HeadParser->new;
$p->parse_file('index2.html'); # and  print "not finished";

print "Title is ", $p->header('Title');
[download]