use Tk;
use Tk::Table;

  $parent = MainWindow-> new ();
  $table = $parent-> Table(-rows => 5,
                          -columns => 5,
                          -scrollbars => se,
                          -fixedrows => 1,
                          -fixedcolumns => 1,
                          -takefocus => 1);

foreach $a (1..10){ 
    foreach $b (1..10) {
         $table-> put ($a,$b,"$a:$b");
    }
}

$table-> pack;
  
MainLoop;

use Tk;
use Tk::TableMatrix;

  $parent = MainWindow-> new ();
  $table = $parent-> TableMatrix (-rows => 5,
                          -cols => 5,
                          -scrollbars => se,
                          -takefocus => 1,
              -borderwidth => 1);

$table-> pack;
  
MainLoop;