#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\n\n";
print "\<HTML\>\
\<HEAD\>\
\<TITLE\>Search\ Results\<\/TITLE\>\
\<\/HEAD\>\
\<BODY\>\
\<SCRIPT\ type\=\"text\/javascript\"\ src\=\"\.\.\/pagetop\.js\"\>\<\/SCRIPT\>\
\<B\>Connected\:\ An\ Internet\ Encyclopedia\<\/B\>\
\<BR\>\
\<EM\>Search\ Results\<\/EM\>\<BR\>\
\<HR\>\<CENTER\>\
\<B\>Up\:\<\/B\>\
\<A\ HREF\=\"\.\.\/index\.htm\"\>Connected\:\ An\ Internet\ Encyclopedia\<\/A\>\<BR\>\
\<\/CENTER\>\
\<HR\>\<P\>\
\<H3\>Search\ Results\<\/H3\>\<P\>\
";
print "\<TITLE\>";
print "Search\ Results";
print "\<\/TITLE\>";
print "\
\
";


use search();

&search::dosearch;

print "\
";
print "\<P\>\<HR\>\
\<B\>Connected\:\ An\ Internet\ Encyclopedia\<\/B\>\
\<BR\>\
\<EM\>Search\ Results\<\/EM\>\
\<\/BODY\>\
\<\/HTML\>\
";