use CGI qw/ *table :standard /;
print start_table({-border=>1});
print Tr( td( [qw, a s d f ,]));
print end_table;
__END__
<table border="1"><tr><td>a</td> <td>s</td> <td>d</td> <td>f</td></tr></table>