foreach $file (@files) {
    if ($file =~ /^(.*)htm/i){	
	    print FileDOut "$file\n";
	    my $extor = HTML::SimpleLinkExtor->new();
            $extor->parse_file($file);
	    my @all_links   = $extor->links;
            print FileDOut join "\n",@all_links;
    }
}