Select Code to Download

   print table({-border=>undef},
           caption('When Should You Eat Your Vegetables?'),
           Tr({-align=>CENTER,-valign=>TOP},
...
           ]
           )
        );

... iterate over results from database request ... {
   push (@rows, $c->td([$firstvar, $secondvar, $thirdvar])); }