#!/usr/local/bin/perl -w

use strict;
use HTML::Parser;

sub HTML::Parser::text
{
  shift;
  print shift;
}

HTML::Parser->new->parse_file ("test.html");