print $query->table({-border=>undef},
           caption('When Should You Eat Your Vegetables?'),
           Tr({-align=>"CENTER",-valign=>"TOP"},
           [
              th(['Vegetable', 'Breakfast','Lunch','Dinner']),
              td(@Data1),
              td(@Data2),
              td(@Data3),
                    ...
           ]
           )
        );