in reply to how to put html table in perl

You might want to read the information here. With a little effort you should be able to figure it out. With CGI.pm you can do things like this ...
print table({-border=>undef}, caption('When Should You Eat Your Vegetables?'), Tr({-align=>CENTER,-valign=>TOP}, [ th(['Vegetable', 'Breakfast','Lunch','Dinner']), td(['Tomatoes' , 'no', 'yes', 'yes']), td(['Broccoli' , 'no', 'no', 'yes']), td(['Onions' , 'yes','yes', 'yes']) ] ) );

Plankton: 1% Evil, 99% Hot Gas.