#!/usr/bin/perl
foreach $num (1..7)
{
print "$num\n";
system "lynx -source http://intros.com/diana/msd$num.htm > msds$num.html";

}