use warnings;
use strict;
use diagnostics;
use HTML::FormatText;
use HTML::TreeBuilder 5 - weak;
open INPUT, "< D:/websiteadresses.txt" or die "Problem: $!";
my @INPUT=<INPUT>;
close INPUT;
while (@INPUT) {
 my $input=shift(@INPUT);   
  chomp $input;
 my $content=HTML::FormatText->format_file($input, leftmargin => 0, rightmargin => 50);
 my $sentry = Object::Destroyer->new($content, 'delete' );
 # followed by some regular expressions, the results of which are saved in a new file - all of this is commented out at the moment
}