Select Code to Download

-cols => 5,                             #################
-colwidth=> -( ($pix_width-30)/5),      #################  
                                        # note: not -colWidth

#!/usr/bin/perl -w
use strict;
...
$table->tagConfigure('title', -bd=>2, -relief=>'raised');

MainLoop;