#!/usr/bin/perl -w

package Example;
use LWP::Simple;
use HTML::Parser;

@Example::ISA=qw(HTML::Parser);
$content = get("http://www.yahoo.com");
my $parser = Example->new();
$parser->parse($content);
print $parser->{TEXT};
sub text
{
my ($self,$text)=@_;
$self->{TEXT}.=$text;
}