sub htmlHead {
   my $self  = shift;     # <------
   my $title = shift;
   print $cgi->header("text/html");
   print $title;
   print "<br>";
}