#!usr/bin/perl
use Tkx;
use strict;
use warnings;
use Tkx::Table;
Tkx::package_require("Tktable");

my $mw = Tkx::widget->new(".");
my $lamina_allow_frm=$mw->new_frame();
$lamina_allow_frm->configure(-borderwidth=>2, -relief=>"groove");
$lamina_allow_frm->g_pack(-side=>'top', -fill=>'both');
my $lamina_table = $lamina_allow_frm->new_table(-rows => 9, -cols => 7)->g_pack();
my $temp = $lamina_allow_frm->new_label(-text=>"FHT/OHT");
$lamina_table->put(1,1,$temp);

Tkx::MainLoop();