#!/usr/bin/perl -w

use strict;
use warnings;
use LWP::Simple;
use HTML::Strip;

my $content = get("http://www.yahoo.com");
my $hs = HTML::Strip->new();
print $hs->parse($content);