Usually one uses the "Scrolled" method of creating a scrolled widget.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Table;

my $mw= tkinit;
$mw->geometry("400x400+100+100");

my $table = $mw->Scrolled('Table',
                       -rows => 20,
                       -columns => 50,
                       -fixedrows => 9,
                       -scrollbars => 'osoe',
                       -takefocus => 1)->pack;

 foreach my $row (0 .. 8) {
      foreach my $col (0 .. 8) {
       my $cell = $table->Entry (
             -width => 4,
             -text => "$col, $row");
       $table->put ($row, $col, $cell);
 }
}

MainLoop;
[download]