Select Code to Download

# this first bit is right out of the HTML::Parser perldoc
sub title_handler {
...
        "tagname,self"
    );
}

sub insertFile {
    my $file = shift;
...
    $p->handler( start => \&date_handler, "tagname,self" );
    $p->parse_file($file);
.................