...
use CGI qw(:standard);

my $q = CGI->new;
print $q->start_html( -title => 'Yesterday Hits' ),
      $q->h1("today is: $tm"), 
      $q->h3("Yesterday was $yesterday"),
      $q->table(
          { border => '1', cellpadding => '10', width => '500' },
          Tr( td("Total Hits: $totalhits"), td("Hits Yesterday: $yesterdayHits"), )
      ),
      $q->end_html;