#!/usr/bin/perl
open LIST, ">list.html";
opendir(DIR, ".");
while($file=readdir(DIR) ){
unless($file =~ /msds/){next;}
print "$file\n";
open IN, "$file";
while(<IN>)
	{
	if ( /PRODUCT/ )
		{
		$line= <IN>;
		print "$line\n";
		print LIST 
"<a href=/msds/mf/diana/$file>Diana Industries -- $line</a><br>\n";
		last;
		}
	}
}