#!/usr/bin/perl -w
use strict;
use CGI;

my $q = new CGI;

print $q->header,
      $q->start_html,
      $q->table(
        $q->Tr(
          $q->th(
            'This is a table header',
          ),
          $q->td(
            'This is a table cell',
          ),
        ),
      ),
      $q->end_html;
exit(0);