sub return_html {
   my %include = %{$_[0]};
   open(FH,"/home/coolsite/www/top.html") || die "couldn't open file $!\n";
   my @html=<FH>;
   close(FH);
   print "Content-type: text/html\n\n";
      print @html;
   my %titles  = %{$_[1]};
   print "\n <center>\n  <h1>Search Results</h1>\n </center>\n";
   print "RESULTS- In No Particular Order:<p><hr size=7 width=75%><p>\n";
   print "<ul>\n";
   foreach my $key (keys %include) {
      if ($include{$key} eq 'yes') {
         print "<li class=bullets><span class=bullets><a href=\"$baseurl$key\">$titles{$key}</a></span></li>\n";
      }
   }
   print "</ul>\n";
   print "\n";
   print "</ul><br><hr size=7 width=75%><P>\n";
   print "<ul>\n<li class=bullets><span class=bullets><a href=\"$search_url\">Back to Search Page</a></span></li>\n";
   print "<li class=bullets><span class=bullets><a href=\"$title_url\">$title</a></span></li>\n";
   print "</ul>\n";
   print "<hr size=7 width=75%>\n";
   print "<center>\n";
   print "This search powered by<br>\n";
   print "<a href=http://www.mysite.com><img src=../nolalogo.jpg width=318 height=74 border=0 alt=\"Got Funk?\"></a>\n";
   print "</center>\n";
   print "</body>\n</html>\n";