use strict;
use HTML::TreeBuilder;
use Object::Destroyer 2.0;
open INPUT, "< D:/websiteadresses.txt" or die "Problem: $!";
my @INPUT=<INPUT>;
foreach my $filename (@INPUT) {
        chomp $filename;
        print $filename;
        my $tree   = HTML::TreeBuilder->new;
        my $sentry = Object::Destroyer->new($tree, 'delete');
        $tree->parse_file($filename);
    }