#!/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();