sub return_html { my %include = %{$_[0]}; open(FH,"/home/coolsite/www/top.html") || die "couldn't open file $!\n"; my @html=; close(FH); print "Content-type: text/html\n\n"; print @html; my %titles = %{$_[1]}; print "\n
\n

Search Results

\n
\n"; print "RESULTS- In No Particular Order:


\n"; print "

\n"; print "\n"; print "

\n"; print "

\n"; print "
\n"; print "
\n"; print "This search powered by
\n"; print "\"Got\n"; print "
\n"; print "\n\n";