Tkx Table

[shortyfw06]

I am trying to display some data in a table. It's getting hung up on the "put" command. Can anyone help?

#!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();