use Tk;
use Tk::TableMatrix;

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

$table-> pack;
  
MainLoop;