#!/usr/bin/perl

use strict;
use warnings;

use HTML::Strip;

my $hs = HTML::Strip->new();
my @file;
open(FILE,"<test.html") || die "Cannot open file: $!";
while(<FILE>)
{
  print $hs->parse($_);
}
close(FILE);