Did you try:
Code:
sub return_html {
print "Content-type: text/html\n\n";
print "<html>\n <head>\n <title>Search Results</title>\n </head>\n";
print "<body bgcolor=\"white\" link=\"black\" vlink=\"orange\"><center>";
print "<table width=\"720\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "<tr><td><img src=\"/images/topgradient.jpg\"></td></tr>";
print "<tr><td><img src=\"/images/LogoHeader.jpg\"></td></tr>";
print "</table><font face=\"Verdana,Tahoma,Arial\">";
print "\n <center>\n <h1>Search Results</h1>\n </center>\n";
print "Below are the results of your Search:<p>\n";
print "<ul>\n";
foreach $key (keys %include) {
if ($include{$key} eq 'yes') {
print "<li><a href=\"$baseurl$key\">$titles{$key}</a>\n";
}
}
print "</ul>\n";
print "<a href=\"$title_url\">Back to $title</a>\n";
print "<table width=\"720\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "<tr><td><img border=\"0\" src=\"/images/bottomgradient.jpg\"></td></tr></table>";
print "</center></body>\n</html>\n";
}
Bookmarks