print STDERR "$topics[$topic]\n";
print "<header size=\"20\" fgcolor=\"#22FF22\">$topics[$topic]</header>\n<text></text>\n";
foreach(@slide) {
print STDERR "$topics[$topic]\n";
print "<header size=\"20\" fgcolor=\"#22FF22\">$topics[$topic]</header>\n<text></text>\n";
foreach(@slide) {