HTML::Parser->new(text_h => [sub { print shift }, "text"])->parse_file("some_file");