#!/usr/bin/perl

use strict;
use HTML::Strip;

my $hs = HTML::Strip->new();
my @file;
open(FILE,"</home/baelnorn/yahoo.txt");
@file = <FILE>;
close(FILE);
print $hs->parse(@file);


##</code><code>##

#!/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);