sub htmlHead {
   my $title = $_[1];
   print $cgi->header("text/html");
   print $title;
   print "<br>";
}