use strict;
use warnings;
use HTML::SimpleLinkExtor;

my $file;
my $FileOut = "output.txt";

open FileDOut, ">$FileOut" or die "Can't open output file $FileOut: $!";
print "Summary written in file $FileOut\n";

opendir(DIR, ".");
my @files = readdir(DIR);
closedir(DIR);

foreach $file (@files) {
    if ($file =~ /^(.*)htm/i){	
	    print FileDOut "$file\n";
	    open my ($fh),"<",$file or die "Couldnot do it: $!";
        my $extor = HTML::SimpleLinkExtor->new();
        $extor->parse_file(<$fh>);
        print FileDOut "$_\n";
    }
}