my(@modules) = split (/\s+/, $modulelist);
foreach my $module (@modules) {
print "<table border=\"0\" bgcolor=\"#000066\" cellpadding=\"5\" width=\"100%\">\n\n";
my(@modules) = split (/\s+/, $modulelist);
foreach my $module (@modules) {
print "<table border=\"0\" bgcolor=\"#000066\" cellpadding=\"5\" width=\"100%\">\n\n";