#!/usr/bin/perl -w

use CGI qw/:standard :html3/;

print header;
print start_html( -title=>'My Table Example');
print table(
    caption('When Should You Eat Your Vegetables?'),
    Tr({-align=>CENTER,-valign=>TOP},
    [
      th(['','Breakfast','Lunch','Dinner']),
      th('Tomatoes').td(['no','yes','yes']),
      th('Broccoli').td(['no','no','yes']),
      th('Onions').td(['yes','yes','yes'])
    ]
  )
);

print end_html;