use Tk;
use Tk::TableMatrix;

my $main = MainWindow->new;
my $frame = $main->Frame()->pack(-fill => 'both', -expand => 1);

my $table = $frame->TableMatrix();

MainLoop;