#!/usr/bin/perl
open OUT, ">list.html";
opendir(DIR,"files");
while($file = readdir(DIR))
{
$reps++ > 20 && exit;
/^\./ && next;
#print "\n$file ==========\n";
open IN, "files/$file";
while(<IN>)
	{
	if(/<B>Product Trade Name/)
		{
		chomp;chomp;
		s/\r//g;
		$trade=$_;
		$trade =~ s/.*\/B>//;
		$trade =~ s/<BR>//g;
		chomp($trade);
		print "Trade= $trade\n";
		last;
		}
	}
$key=$trade;
$key =~ s/^[^A-Z]*//;
#print "Key=$key\n";

$list{$key}="<a href=mf/gsc/files/$file>Good Scents Company - $trade</a><br>\n";


print OUT "$list{$trade}";
	
}

#foreach $key (sort(keys %list)){print OUT "$list{$key}";}