use WWW::Mechanize;
use HTML::TokeParser;
my $webcrawler = WWW::Mechanize->new();
$webcrawler->get("http://www.google.com");
my $content = $webcrawler->content;
my $parser = HTML::TokeParser->new(\$content);
while($parser->get_tag){
print $parser->get_trimmed_text(),"\n";
}