use Tk;
use Tk::Table;
$t = MainWindow->new(-title=>"tablesize")
    ->Table(rows => 5, columns => 5)->pack;
for $x (0 .. 4) {
    for $y (0 .. 4) {
        $t->put($x, $y, "$x:$y");
    }
};
$t->parent->Button(-text    =>"+",
                   -command => sub {
                       $x=$t->get(2,3);
                       $x->configure(-width => $x->cget("-width") + 1)
                   }
               )->pack;
MainLoop;