# amend use CGI statement
use CGI qw/:standard *pre *font/;

# ...

      print start_font({-size=>4}).
            start_pre;
      while ( $row = $st->fetchrow_hashref )
      {
         printf("%-40s->     %s     ->     %s",
             font({-color=>'Lime'},$row->{host}),
             font({-color=>'Cyan'},$row->{xronos}),
             font({-color=>'Yellow'},$row->{game})
         ).
         "\n";
      }
      print end_pre.
            end_font;

# ...