#!/usr/bin/perl
open OUT, ">list.html";
opendir DIR, "files";
while($file=readdir(DIR))
{
$_=$file;
unless (/MSDS/){next;}
s/MSDS_/Bortz -- /;
s/\.doc$//;
s/_/ /g;
print OUT "<a href=/msds/mf/bortz/files/$file>$_ (word.doc)</a><br>\n";


}