ok, from another discussion where I got told off for telling fibs..8)

#!/usr/bin/perl -w
use strict;
use CGI qw/:standard *table/;

print header(),
 start_html('foo bar qux'),
  start_table();

print Tr(
 td('foo'), td('bar'), td('qux')
);

print end_table(),
 end_html();
[download]

so some changes..

change:
use CGI;

to:
use CGI qw/:standard *table/;

change the first:
print table ({-border => 0},
to 
print start_table ({-border => 0},

change in the loop:
print table ({-border => 0},
    Tr ({-align=>"center", -valign=>"TOP", -style=>"font-family: verda

to:
print Tr ({-align=>"center", -valign=>"TOP", -style=>"font-family: ver
+da

and add:
print end_table(),

after the loop.
[download]

cheers,

J