Select Code to Download

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

# ...

my @Tr=();
while ( $row = $st->fetchrow_hashref )
...
print table(
          Tr(\@Tr)
      );