sub insertFile {
    my $file = shift;

    my $p = HTML::Parser->new( api_version => 3 );
    $p->handler( start => \&title_handler, "tagname,self" );
    $p->handler( start => \&date_handler, "tagname,self" );
    $p->parse_file($file);
.................