#!/usr/bin/perl
system "lynx -source http://www.dap.com/products/msds > mipage";
open IN, "mipage";
while(<IN>)
{
if(/href=([^>]*)>/)
	{
	$dir=$1;
	$dir =~ s/\/$//;
	print "$dir\n";
system "lynx -source http://www.dap.com/products/msds/$dir > dirs/$dir";
open DIR, "dirs/$dir";
while(<DIR>){
		if(/href=([^>]*)>/)
	        {
		$file = "$1";

        	print "file=$file\n";
#		system "mkdir files";
	system "lynx -source  http://www.dap.com/products/msds/$dir/$file > files/$file";
	  	}
             }
	}
}