#!/usr/bin/perl
use Tk;
use Tk::Entry;
use Tk::Table;
use Tk::LabFrame;
use warnings;
use strict;
my $v="0.00";
my $mw = MainWindow->new;
$mw->geometry("200x200");
$mw->resizable(0,0);
$mw->title("Table Example");
my @id=qw/100 101 102 103 104 105 106 107 108 109 110/;
my @name=qw/AAA BBB CCC DDD EEE FFF GGG HHH III JJJ KKK/;
my @top2=qw/No Name Amount/;
my $table_frame = $mw->LabFrame()->pack();
my $table = $table_frame->Table(-columns => 10, -rows => 6, -fixedrows => 1, -scrollbars => 'oe', -relief => 

'raised',-background=>'white');
my  $j=0;
my $i=0;


foreach my $j(1..11)
{
my $tmp_label=$table->Label(-text => $id[$i], -width => 8, -relief =>'raised');
my $tmp_label1 = $table->Label(-text => $name[$i], -width => 8, -relief =>'raised');
my $tmp_label2= $table->Entry( -width => 8, -relief =>'raised',-validate=>'key',-validatecommand=>sub{$_[1]=~m/[\d\d]/} 

,-invalidcommand=>sub{$mw->bell} );
$tmp_label2->bind('Tk::Entry','<Return>',sub{shift->focusNext}); 


  $table->put($j,1,$tmp_label);
  $table->put($j,2,$tmp_label1);
  $table->put($j,3,$tmp_label2);

$i++;

}

$table->pack();

my $button_frame = $mw->Frame( -borderwidth => 4 )->pack();
$button_frame->Button(-text => "Exit", -command => sub {exit})->pack();
#$button_frame->Button(-t)->pack();

MainLoop;