Try this:

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

use strict;
use HTML::Parser;

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

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

You'll get a redefine warning. Ignore it.

--Chris (master of the munged /msg...)