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