#!/usr/bin/perl
#system "lynx -source http://www.bnzmaterials.com/msds > list1";
#system "lynx -source http://www.bnzmaterials.com/header.gif > header.gif";
#exit;
system "mkdir files";
open IN, "list1";
while(<IN>)
{
/.*>(.*)<\/A/;
$name=$1;
print "$name\n";
system "lynx -source http://www.bnzmaterials.com/msds/$name >  files/$name";
}