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 {
                       $x1=$t->get(2,2);
                       $x1->configure(-width => $x1->cget("-width") + 1);
                   }
               )->pack;
               
$t->parent->Button(-text    =>" - ",
                   -command => sub {
                       $x1=$t->get(2,2);
                       $x1->configure(-width => $x1->cget("-width") - 1);
                   }
               )->pack;
MainLoop;