use warnings;
use strict;
use diagnostics;
use HTML::FormatText;
use Data::Dumper;
open INPUT, "< D:/websiteadresses.txt" or die "Problem: $!";
my @INPUT=<INPUT>;
close INPUT;
while (@INPUT) {
 my $inputfile=shift(@INPUT);   
  chomp $inputfile;
 my $content=HTML::FormatText->format_from_file($inputfile);
 print Dumper($_, $´);
}