In answer to your first and second questions combined:

# 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;

# ...
[download]

cLive ;-)

update: Actually, that won't *quite work as intended as the font tag is included when populating the %-40s. You'd need to change it to %-66s. Ouch, Hacky. Any reason you're not using a table?

my @Tr=();
while ( $row = $st->fetchrow_hashref )
    push @Tr, td([ font({-color=>'Lime'},$row->{host}),
                   '->',
                   font({-color=>'Cyan'},$row->{xronos}),
                   '->',
                   font({-color=>'Yellow'},$row->{game})
                 ]);
}
print table(
          Tr(\@Tr)
      );
[download]