You can give width to TD like this (added to your example):

push (@rows, Tr (td ({-width => 50}, \@cells),(td ({-width => 100}, \@
+cells2))));
[download]

Or maybe you want to use style or class tag with some css. Then use -style or -class.

See CGI-modules documentation: CGI